File Coverage

blib/lib/WWW/Shorten/5gp.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package WWW::Shorten::5gp;

use 5.008001;
use strict;
use warnings;

use Carp;
use JSON::PP;

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

my $service = 'http://5.gp/api/';

sub makeashorterlink ($) {
    my $url = shift or croak 'No URL passed to makeashorterlink';
    my $ua = __PACKAGE__->ua();
    my $resp = $ua->get($service .'short?longurl=' . $url);

    if (!$resp->is_success) {
        carp $resp->status_line;
        return;
    }
    my $result = decode_json $resp->content;
    return $result->{url};
}

sub makealongerlink ($) {
    my $url = shift or croak 'No 5.gp key / URL passed to makealongerlink';
    my $ua = __PACKAGE__->ua();

    $url = "http://5.gp/$url" unless $url =~ m!^http://!i;

    my $resp = $ua->get($service . 'long?shorturl=' . $url);

    if (!$resp->is_success) {
        carp $resp->status_line;
        return;
    }
    my $result = decode_json $resp->content;
    return $result->{$url}->{target_url};
}

1;

__END__