OAuth::Lite::AuthMethod - auth method constants.

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

Index

Code Index:

NAME

Top

OAuth::Lite::AuthMethod - auth method constants.

SYNOPSIS

Top

    use OAuth::Lite::AuthMethod qw(
        AUTH_HEADER
        POST_BODY
        URL_QUERY
    );

    $consumer = OAuth::Lite::Consumer->new(
        ...
        auth_method => URL_QUERY,
    );

DESCRIPTION

Top

This mere holds constants for auth method on requesting with OAuth.

CONSTANTS

Top

AUTH_HEADER

Using Authorization header for OAuth-authentication.

    Authorization: OAuth realm="http://example.org", oauth_consuemr_key="key", ...

POST_BODY

Embed OAuth authentication data into request body.

URL_QUERY

Append OAuth authentication data as query-string.

METHODS

Top

validate_method($method)

    unless ( OAuth::Lite::AuthMethod->validate_method($method) ) {
        say 'Invalid auth method.';
    }

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::AuthMethod;

use strict;
use warnings;

use base 'Exporter';

use List::MoreUtils qw(any);

our %EXPORT_TAGS = ( all => [qw/AUTH_HEADER POST_BODY URL_QUERY/] );
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;

use constant AUTH_HEADER => 'auth_header';
use constant POST_BODY   => 'post_body';
use constant URL_QUERY   => 'url_query';

sub validate_method {
    my ($class, $method) = @_;
    my @methods = (AUTH_HEADER, POST_BODY, URL_QUERY);
    any { $method eq $_ } @methods;
}

1;