File Coverage

blib/lib/Dancer2/Plugin/Auth/OAuth/Provider/Twitter.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	25	28	89.2

use strict;
use parent 'Dancer2::Plugin::Auth::OAuth::Provider';

use HTTP::Request::Common;

    version => '1.001', # 1.0a
    urls    => {
        access_token_url  => 'https://twitter.com/oauth/access_token',
        authorize_url     => 'https://twitter.com/oauth/authorize',
        request_token_url => 'https://twitter.com/oauth/request_token',
    }
} }

    my ($self, $session) = @_;

    my $session_data = $session->read('oauth');

    my $request = Net::OAuth->request("protected resource")->new(
        $self->_default_args_v1,
        token           => $session_data->{twitter}{access_token},
        token_secret    => $session_data->{twitter}{access_token_secret},
        request_method  => 'GET',
        request_url     => 'https://api.twitter.com/1.1/account/verify_credentials.json',
    );
    $request->sign;

    my $resp = $self->ua->request(GET $request->to_url);
    if ($resp->is_success) {
        my $user = $self->_stringify_json_booleans(
            JSON::MaybeXS::decode_json( $resp->decoded_content )
        );
        $session_data->{twitter}{user_info} = $user;
        $session->write('oauth', $session_data);
    }
}

1;