CHips L Pro sangad

Current Path : /proc/2/cwd/usr/share/perl5/OAuth/Lite/
Current File : //proc/2/cwd/usr/share/perl5/OAuth/Lite/Problems.pm
package OAuth::Lite::Problems;

use strict;
use warnings;

use base 'Exporter';

our %EXPORT_TAGS = ( all => [qw/
    VERSION_REJECTED
    PARAMETER_ABSENT
    PARAMETER_REJECTED
    TIMESTAMP_REFUSED
    NONCE_USED
    SIGNATURE_METHOD_REJECTED
    SIGNATURE_INVALID
    CONSUMER_KEY_UNKNOWN
    CONSUMER_KEY_REJECTED
    CONSUMER_KEY_REFUSED
    TOKEN_USED
    TOKEN_EXPIRED
    TOKEN_REVOKED
    TOKEN_REJECTED
    ADDITIONAL_AUTHORIZATION_REQUIRED
    PERMISSION_UNKNOWN
    PERMISSION_DENIED
    USER_REFUSED
/] );

our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;

use constant VERSION_REJECTED                  => 'version_rejected';
use constant PARAMETER_ABSENT                  => 'parameter_absent';
use constant PARAMETER_REJECTED                => 'parameter_rejected';
use constant TIMESTAMP_REFUSED                 => 'timestamp_refused';
use constant NONCE_USED                        => 'nonce_used';
use constant SIGNATURE_METHOD_REJECTED         => 'signature_method_rejected';
use constant SIGNATURE_INVALID                 => 'signature_invalid';
use constant CONSUMER_KEY_UNKNOWN              => 'consumer_key_unknown';
use constant CONSUMER_KEY_REJECTED             => 'consumer_key_rejected';
use constant CONSUMER_KEY_REFUSED              => 'consumer_key_refused';
use constant TOKEN_USED                        => 'token_used';
use constant TOKEN_EXPIRED                     => 'token_expired';
use constant TOKEN_REVOKED                     => 'token_revoked';
use constant TOKEN_REJECTED                    => 'token_rejected';
use constant ADDITIONAL_AUTHORIZATION_REQUIRED => 'additional_authorization_required';
use constant PERMISSION_UNKNOWN                => 'permission_unknown';
use constant PERMISSION_DENIED                 => 'permission_denied';
use constant USER_REFUSED                      => 'user_refused';

my %PROBLEMS = map { __PACKAGE__->$_() => 1 } @EXPORT_OK;

sub match {
    my $class = shift;
    my $error = shift;
    return $PROBLEMS{$error} ? 1 : 0;
}


1;

=head1 NAME

OAuth::Lite::Problems - constants for OAuth Problem Reporting Extension

=head1 SYNOPSIS

    use OAuth::Problems qw(:all);

    $server->error( TOKEN_REJECTED );

=head1 DESCRIPTION

This provides constants which used in OAuth Problem Reporting spec.

=head1 METHODS

=head2 match($error)

    my $error = 'token_rejected';
    if (OAuth::Lite::Problems->match($error)) {
        say "This error is OAuth Problem";
        $server->error(sprintf "oauth_problem=%s", $error);
    }

=head1 CONSTANTS

=head2 VERSION_REJECTED
=head2 PARAMETER_ABSENT
=head2 PARAMETER_REJECTED
=head2 TIMESTAMP_REFUSED
=head2 NONCE_USED
=head2 SIGNATURE_METHOD_REJECTED
=head2 SIGNATURE_INVALID
=head2 CONSUMER_KEY_UNKNOWN
=head2 CONSUMER_KEY_REJECTED
=head2 CONSUMER_KEY_REFUSED
=head2 TOKEN_USED
=head2 TOKEN_EXPIRED
=head2 TOKEN_REVOKED
=head2 TOKEN_REJECTED
=head2 ADDITIONAL_AUTHORIZATION_REQUIRED
=head2 PERMISSION_UNKNOWN
=head2 PERMISSION_DENIED
=head2 USER_REFUSED

=head1 SEE ALSO

http://oauth.pbworks.com/ProblemReporting

=head1 AUTHOR

Lyo Kato, C<lyo.kato _at_ gmail.com>

=head1 COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.

=cut
CHips L MINI SHELL

CHips L pro
