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

OAuth-Lite documentation Contained in the OAuth-Lite distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

    use OAuth::Problems qw(:all);

    $server->error( TOKEN_REJECTED );

DESCRIPTION

Top

This provides constants which used in OAuth Problem Reporting spec.

METHODS

Top

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);
    }

CONSTANTS

Top

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

SEE ALSO

Top

http://oauth.pbworks.com/ProblemReporting

AUTHOR

Top

Lyo Kato, lyo.kato _at_ gmail.com

COPYRIGHT AND LICENSE

Top

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.

OAuth-Lite documentation Contained in the OAuth-Lite distribution. 
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;