File Coverage

lib/Plack/Middleware/OAuth/AccessToken.pm

Criterion	Covered	Total	%
statement	21	41	51.2
branch	0	8	0.0
condition	1	4	25.0
subroutine	8	15	53.3
pod	0	9	0.0
total	30	77	38.9

package Plack::Middleware::OAuth::AccessToken;
use warnings;
use strict;
use Plack::Session;
use Plack::Util::Accessor qw(params provider version);
use overload
    '""' => sub {
        my $self = shift;
        return $self->access_token;
    };

sub new {
    my ($class,%args) = @_;
    $args{params} ||= { };
    return bless \%args , $class;
}

sub is_provider {
    return $_[0]->provider eq $_[1];
}

sub has_error {
    my $self = shift;
    return $self->{params}->{error};
}

sub access_token {
    return $_[0]->{params}->{access_token};
}

sub access_token_secret {
    return $_[0]->{params}->{access_token_secret};
}

sub code {
    return $_[0]->{params}->{code};
}

sub hashref {
    my $self = shift;
    return \%$self;
}

sub extra {
    my $self = shift;
    return $self->params->{extra} || { };
}

sub register_session {
    my ($self,$env) = @_;
    my $session = Plack::Session->new( $env );
    my $provider_id = lc($self->provider);

    $session->set( 'oauth.' . $provider_id  , 1 );
    $session->set( 'oauth.' . $provider_id  . '.version' , $self->version );
    $session->set( 'oauth.' . $provider_id  . '.access_token'  , $self->access_token );

    if( $self->version == 2 ) {
        $session->set( 'oauth.' . $provider_id  . '.code'          , $self->{params}->{code} );

        $session->set( 'oauth.' . $provider_id  . '.token_type'    , $self->{params}->{token_type} )
                    if $self->params->{token_type};

        $session->set( 'oauth.' . $provider_id  . '.refresh_token' , $self->{params}->{refresh_token} )
                    if $self->params->{refresh_token};
    }
    elsif( $self->version == 1 ) {
        $session->set( 'oauth.' . $provider_id . '.access_token_secret' , $self->{params}->{access_token_secret} );
    }
}

1;