File Coverage

blib/lib/WWW/Shorten/Flickr.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package WWW::Shorten::Flickr;
use strict;
use warnings;
use 5.008_001;
use base qw( WWW::Shorten::generic Exporter );
our @EXPORT = qw( makeashorterlink makealongerlink );

our $VERSION = '0.03';

use Carp;
use Encode::Base58;

sub makeashorterlink {
    my $uri = shift or croak 'No URL passed to makeashorterlink';

    my $photo_id;
    if (   $uri =~ m!^http://www\.flickr\.com/photos/[\w@-]+/(\d+)!i
        || $uri =~ /^(\d+)$/ )
    {
        $photo_id = $1;
    }
    else {
        return;
    }

    return sprintf( "http://flic.kr/p/%s", encode_base58($photo_id) );
}

sub makealongerlink {
    my $uri = shift or croak 'No URL passed to makealongerlink';

    my $ua = __PACKAGE__->ua();
    push @{ $ua->requests_redirectable }, 'GET';

    $uri = "http://flic.kr/p/$uri" unless $uri =~ m!^http://!i;

    my $res = $ua->get($uri);
    return if $res->redirects() == 0;
    return $res->request->uri;
}

1;
__END__