Yet Another CPAN Grep

Amon2-Auth-Site-Google ( N/NT/NTAKANASI/Amon2-Auth-Site-Google-0.04.tar.gz, NTAKANASI, 2014; MetaCPAN )

Amon2-Auth-Site-Google/lib/Amon2/Auth/Site/Google.pm ( view source; MetaCPAN )

package Amon2::Auth::Site::Google;
use Mouse;

use JSON;
use LWP::UserAgent;
use URI;

our $VERSION = "0.04";

has client_id => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

ha

ent;
        return $callback->{on_error}->($res->decoded_content);
    };
    my $token = decode_json $res->content;

    my $uri = URI->new($self->token_info_url);
    $uri->query_form(+{ access_tok

token->{access_token} });
    $res = $self->ua->get($uri->as_string);
    my $token_info = decode_json $res->content;
    $res->is_success or do {
        warn $res->decoded_content;
        return $c