File Coverage

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

Criterion	Covered	Total	%
statement	18	37	48.6
branch	0	14	0.0
condition	0	12	0.0
subroutine	6	8	75.0
pod	2	2	100.0
total	26	73	35.6

package WWW::Shorten::5gp;

use strict;
use warnings;

use Carp qw();
use JSON::MaybeXS qw(decode_json);
use URI ();

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

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

sub makeashorterlink {
    my $url = shift or Carp::croak('No URL passed to makeashorterlink');
    my $ua = __PACKAGE__->ua();
    my $uri = URI->new('http://5.gp/api/short');
    $uri->query_form(longurl => $url);
    my $res = $ua->get($uri);

    return undef unless $res && $res->is_success;
    my $content = decode_json($res->decoded_content);
    return undef unless $content && $content->{url};
    return $content->{url};
}

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

    $url = "http://5.gp/$url" unless $url =~ m!^http://!i;
    my $uri = URI->new('http://5.gp/api/long');
    $uri->query_form(shorturl => $url);

    my $res = $ua->get($uri);
    return undef unless $res && $res->is_success;
    my $content = decode_json($res->decoded_content);
    return undef unless $content && $content->{$url}->{target_url};
    return $content->{$url}->{target_url};
}

1;

__END__