File Coverage

blib/lib/WWW/Shorten/VGd.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch	0	12	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	22	52	42.3

package WWW::Shorten::VGd;
use strict;
use warnings;
use base qw( WWW::Shorten::generic Exporter );
our @EXPORT = qw( makeashorterlink makealongerlink );
use Carp ();
use HTML::Entities;

our $VERSION = '0.004';
$VERSION = eval $VERSION;

sub makeashorterlink {
    my $url = shift or Carp::croak('No URL passed to makeashorterlink');
    my $ua = __PACKAGE__->ua();
    my $response = $ua->post('https://v.gd/create.php', {
        url => $url,
        format => 'simple',
    });

    return unless $response->is_success;
    my $shorturl = $response->decoded_content();
    return if $shorturl =~ m/Error/;
    if ($response->content =~ m{^(\Qhttps://v.gd/\E\w+)$}) {
        return $1;
    }
    return;
}

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

    $url =~ s{\Qhttps?://v.gd/\E}{}i;
    my $response = $ua->post('https://v.gd/forward.php', {
        shorturl => $url,
        format   => 'simple',
    });
    # use Data::Dumper;
    # print STDERR Dumper $response;
    return unless $response->is_success;

    my $longurl = $response->{_content};
    return decode_entities($longurl);
}

1;

__END__