File Coverage

blib/lib/WWW/Shorten/RevCanonical.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package WWW::Shorten::RevCanonical;

use strict;
use 5.008_001;
our $VERSION = '0.03';

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

use Carp;
use LWP::UserAgent;

sub _ua {
    my $ua = LWP::UserAgent->new;
    $ua->env_proxy;
    $ua;
}

sub makeashorterlink {
    my $url = shift or croak "URL is required";

    my $res  = _ua->get($url);
    my @links = grep /^<.*?>;.*\brev="canonical"/, $res->header('Link');
    if (@links) {
        return ($links[0] =~ /^<(.*?)>/)[0];
    }

    return;
}

sub makealongerlink {
    my $tiny_url = shift or croak "URL is required";

    my $res = _ua->get($tiny_url);
    return unless $res->redirects;

    return $res->request->uri;
}

1;
__END__