File Coverage

lib/Plack/Middleware/OAuth/Handler.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	1	2	50.0
total	25	35	71.4

package Plack::Middleware::OAuth::Handler;
use parent qw(Plack::Middleware::OAuth::GenericHandler);
use warnings;
use strict;
use Digest::MD5 qw(md5_hex);
use DateTime;
use Plack::Util::Accessor qw(config provider on_success on_error);

=head1 NAME

Plack::Middleware::OAuth::Handler - OAuth Handler

=head1 ACCESSORS

=head2 provider

Provider id.

=head2 config

Provider configuration hash reference.

=head2 on_success

On success handler.

=head2 on_error

On error handler.

=head1 METHODS

=head2 default_callback

return default callback URL.

=cut

sub default_callback {
    my $self = shift;
    my $provider = $self->provider;
    my $env = $self->env;

    # 'REQUEST_URI' => '/oauth/twitter',
    # 'SCRIPT_NAME' => '/oauth',
    # 'PATH_INFO' => '/twitter',
    return URI->new( $env->{'psgi.url_scheme'} . '://' .
        $env->{HTTP_HOST} . $env->{SCRIPT_NAME} . '/' . lc($provider) . '/callback' );
}

sub build_v1_common_args {
	my $self = $_[0];
	my $config = $self->config;
	return (
		consumer_key     => $config->{consumer_key},
		consumer_secret  => $config->{consumer_secret},
		signature_method => $config->{signature_method},
		timestamp        => DateTime->now->epoch,
		nonce            => md5_hex(time),
	);
}

1;