File Coverage

blib/lib/WWW/Shorten/Googl.pm

Criterion	Covered	Total	%
statement	33	65	50.7
branch	3	30	10.0
condition			n/a
subroutine	13	15	86.6
pod	3	3	100.0
total	52	113	46.0

package WWW::Shorten::Googl;

use strict;
use warnings;
use Carp                 ();
use HTTP::Request        ();
use LWP::Protocol::https ();
use JSON::MaybeXS        ();
use URI                  ();

use base qw( WWW::Shorten::generic Exporter );
our @EXPORT  = qw( makeashorterlink makealongerlink );
our $VERSION = '1.100';
$VERSION = eval $VERSION;
use constant API_URL => 'https://www.googleapis.com/urlshortener/v1/url';

{
    # 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"};
}

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

    my $request = HTTP::Request->new('POST', URI->new(API_URL));
    $request->content(JSON::MaybeXS::encode_json({longUrl => $url}));
    if (my $res = _req($request)) {
        return $res->{id} if ($res->{id});
        Carp::croak("Couldn't find the shorter URL");
    }
    Carp::croak("Unable to get a response");
}

sub makealongerlink {
    my $url = shift or Carp::croak('No URL passed to makealongerlink');
    $url = "http://goo.gl/$url" unless $url =~ m!^http://!i;

    my $endpoint = URI->new(API_URL);
    $endpoint->query_form(shortUrl => $url);
    my $request = HTTP::Request->new('GET', $endpoint);

    if (my $res = _req($request)) {
        return $res->{longUrl} if ($res->{longUrl});
        Carp::croak("Couldn't find the longer URL");
    }
    Carp::croak("Unable to get a response");
}

sub getlinkstats {
    my $url = shift or Carp::croak('No URL passed to getlinkstats');
    $url = "http://goo.gl/$url" unless $url =~ m!^http://!i;

    my $endpoint = URI->new(API_URL);
    $endpoint->query_form(projection => 'FULL', shortUrl => $url);
    my $request = HTTP::Request->new('GET', $endpoint);

    if (my $res = _req($request)) {
        return $res;
    }
    Carp::croak("Unable to get a response");
}

sub _api_key { $ENV{GOOGLE_API_KEY} || '' }

sub _req {
    my $request = shift or Carp::croak("Expected an HTTP::Request object");
    $request->header('Content-Type' => 'application/json');
    $request->uri->query_form($request->uri->query_form(), key => _api_key());

    my $ua = __PACKAGE__->ua();

    if (my $res = $ua->request($request)) {
        if ($res->is_success()) {
            Carp::croak("Couldn't parse JSON response")
                unless (my $data = JSON::MaybeXS::decode_json($res->content));
            return $data;
        }
        else {
            Carp::croak("Request failed - " . $res->status_line);
        }
    }
    else {
        Carp::croak("Unable to get response");
    }
}

1;

__END__