CPAN::Groonga

use strict;
use warnings;

=head1 NAME

OAuth2::Google::Plus::UserInfo

=head1 DESCRIPTION

implements acallback to https://www.googleapis.com/oauth2/v2/userinfo, retrieving
the users google-id, email and verification status.

=head1 SYNOPSYS

    use OAuth2::Google::Plus::UserInfo;

    my $info = OAuth2::Google::Plus::UserInfo->new( access_token => $access_token );

    if( $info->is_success ) {
        my $email = $info->email;

        # ...
    }

=cut

{
    package OAuth2::Google::Plus::UserInfo;
    use Moo;
    use MooX::late;

    use LWP::UserAgent;
    use JSON qw|decode_json|;
    use Carp::Assert;
    use URI;

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

    has _user_info => (
        is => 'ro',
        isa => 'HashRef',
        lazy_build => 1,
    );

    has response => (
        is  => 'ro',
        writer => '_set_response',
    );

    has _endpoint => (
        is => 'ro',
        default => sub {
            return 'https://www.googleapis.com/oauth2/v2/userinfo';
        },
    );

    sub _build__user_info {
        my ( $self ) = @_;

        my $ua = LWP::UserAgent->new;
        $ua->default_header( Authorization => 'OAuth ' . $self->access_token );

        my $response = $ua->get( $self->_endpoint );
        $self->_set_response( $response );

        if( $response->is_success ){
            my $json     = decode_json( $response->content );
            return $json;
        }

        return {};
    }

    sub is_success {
        my ( $self ) = @_;
        return defined( $self->_user_info->{id} );
    }

    sub email {
        my ( $self ) = @_;
        return $self->_user_info->{email};
    }

    sub id {
        my ( $self ) = @_;
        return $self->_user_info->{id};
    }

    sub verified_email {
        my ( $self ) = @_;
        return $self->_user_info->{verified_email};
    }
}

1;