Yet Another CPAN Grep

WWW-Shorten-5gp ( C/CA/CAPOEIRAB/WWW-Shorten-5gp-1.030.tar.gz, CAPOEIRAB, 2016; MetaCPAN )

WWW-Shorten-5gp/lib/WWW/Shorten/5gp.pm ( view source; MetaCPAN )

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

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-

$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};
    r