File Coverage

blib/lib/WebService/Google/Contact.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package WebService::Google::Contact;

use warnings;
use strict;
use Carp;

our $VERSION = '0.1';

use base qw/Class::Accessor::Fast/;
__PACKAGE__->mk_accessors(qw(email contacts));

use URI;
use LWP::UserAgent;
use XML::Liberal;

sub name_by_email {
    my $self = shift;
    my ($name) = split '@', $self->email;
    return $name;
}

sub uri_to_login {
    my ($self, $next, $scope) = @_;
    $scope ||= 'http://www.google.com/m8/feeds';
    my $base = 'https://www.google.com/accounts/AuthSubRequest';
    my $uri = URI->new( $base );
    $uri->query_form(
       scope   => $scope,
       session => 1,
       next    => $next,
       secure  => 0,
    );
    $uri->as_string;
}

sub verify {
    my ($self, $token) = @_;
    if ( $self->upgrade_to_session_token( $token ) ) {
        return $self->get_email;
    }
    return;
}

sub upgrade_to_session_token {
    my ($self, $token) = @_;
	my $ua = LWP::UserAgent->new();
	my $res = $ua->get(
		'https://www.google.com/accounts/AuthSubSessionToken',
		'Content-Type' => 'application/x-www-form-urlencoded',
		'Authorization' => 'AuthSub token="' . $token . '"',
	);
    if ( $res->is_success and $res->content =~ /^Token=(.+)$/ ) {
        $self->{session_token} = $1;
        return 1;
    }
    Carp::cluck "error upgrade_to_session_token";
    return;
}

sub get_email {
    my $self = shift;
    my $token = $self->{session_token};
	my $ua = LWP::UserAgent->new();
	my $res = $ua->get(
		'http://www.google.com/m8/feeds/contacts/default/full',
		'Content-Type' => 'application/x-www-form-urlencoded',
		'Authorization' => 'AuthSub token="' . $token . '"',
	);
    if ( $res->is_success ) {
        $self->{xml_content} = $res->content;
        return $self->{email} = $1 if $self->{xml_content} =~ /(.+?)<\/id>/;
    }
    Carp::cluck 'error get_contact';
}

sub get_contact {
    my $self = shift;
    my $xml  = $self->{xml_content};
    my $parser = XML::Liberal->new;
    my $doc = eval { $parser->parse_string( $xml ) };

    Carp::cluck $@ if $@;

    my $root = $doc->documentElement;

    my @entries = $root->findnodes("//*[local-name()='entry']");
    my @contacts;
    for my $entry ( @entries ) {
        my %elems;
        $elems{ $_ } = $entry->findvalue("./*[local-name()='" . $_ . "']") for qw(id updated title);
        $elems{"name"}  = $elems{"title"};
        $elems{"email"} = $entry->getElementsByTagName('gd:email')->[0]->getAttribute("address");
        push @contacts, \%elems;
    }
    return $self->{contacts} = \@contacts;
}

1;

__END__