File Coverage

blib/lib/WWW/Shorten/Googl.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package WWW::Shorten::Googl;

use 5.006;
use strict;
use warnings;

use base qw( WWW::Shorten::generic Exporter );
our @EXPORT  = qw( makeashorterlink makealongerlink );
our $VERSION = '1.02';

{

    # As docs advice you use this module as "use WWW::Shorten 'Googl'"
    # that module takes care of the importing.. so let's hack this in here
    no strict 'refs';
    *{"main::getlinkstats"} = *{"WWW::Shorten::Googl::getlinkstats"};
}

use JSON::Any;
use Carp;

use constant API_URL => 'https://www.googleapis.com/urlshortener/v1/url';
use constant HISTORY_URL =>
  'https://www.googleapis.com/urlshortener/v1/url/history';

sub makeashorterlink ($) {
    my $url = shift or croak 'No URL passed to makeashorterlink';

    my $json = JSON::Any->new;
    my $content = $json->objToJson( { longUrl => $url, } );

    my $res = _request( 'post', API_URL, Content => $content );
    return $res->{id} if ( $res->{id} );
    return undef;
}

sub makealongerlink ($) {
    my $url = shift
      or croak 'No goo.gl key / URL passed to makealongerlink';

    $url = "http://goo.gl/$url"
      unless $url =~ m!^http://!i;

    my $res = _request( 'get', API_URL . '?shortUrl=' . $url );
    return $res->{longUrl} if ( $res->{longUrl} );
    return undef;
}

sub getlinkstats ($) {
    my $url = shift
      or croak 'No goo.gl key / URL passed to makealongerlink';

    $url = "http://goo.gl/$url"
      unless $url =~ m!^http://!i;

    my $res = _request( 'get', API_URL . '?projection=FULL&shortUrl=' . $url );
    return $res;
}

sub _request {
    my ( $method, $url, @args ) = @_;

    my $ua      = __PACKAGE__->ua();
    my %headers = ();
    if ( $ENV{GOOGLE_USERNAME} && $ENV{GOOGLE_PASSWORD} ) {
        $headers{Authorization} =
          _authorize( $ENV{GOOGLE_USERNAME}, $ENV{GOOGLE_PASSWORD} );
    }
    $headers{'Content-Type'} = 'application/json';

    my $resp = $ua->$method( $url, %headers, @args );
    die "Request failed - " . $resp->status_line unless $resp->is_success;

    my $json = JSON::Any->new;
    my $obj  = $json->jsonToObj( $resp->content );
    return $obj;
}

sub _authorize {
    my ( $username, $password ) = @_;

    eval "require Net::Google::AuthSub";
    if ($@) {
        die "You need to install Net::Google::AuthSub to enable URL tracking";
    }

    my $auth = Net::Google::AuthSub->new(
        service => 'urlshortener',
        source  => 'perl/www-shorten-googl',
    );
    my $res = $auth->login( $username, $password );
    unless ( $res and $res->is_success ) {
        die "Authentication failed - " . $res->error;
    }
    unless ( $auth->authorized ) {
        die "Not authorized";
    }
    return 'GoogleLogin auth=' . $auth->auth_token;
}

1;

__END__