File Coverage

blib/lib/WWW/256locksMaker.pm

Criterion	Covered	Total	%
statement	21	40	52.5
branch	0	4	0.0
condition			n/a
subroutine	7	10	70.0
pod	0	3	0.0
total	28	57	49.1

package WWW::256locksMaker;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.03";
our $ENDPOINT_URL = 'http://maker-256locks.herokuapp.com/name';

use URI;
use Furl;
use Imager;
use Class::Accessor::Lite (
    new => 1,
    ro => [qw[image_url tweet_link image]],
);

my $furl = Furl->new(agent => __PACKAGE__.'/'.$VERSION);

sub make {
    my ($class, $str) = @_;
    my $uri = URI->new($ENDPOINT_URL);
    $uri->query_form(name => $str);
    my $res = $furl->get($uri->as_string);
    unless ($res->is_success) {
        warn sprintf('remote server(%s) said : %s', $uri->host, $res->status_line);
        return;
    }
    my $image_url = $class->get_image_url($res->content);
    my $tweet_link = $class->get_tweet_link($res->content);
    my $image = do{
        my $r = $furl->get($image_url);
        $r->is_success ? Imager->new(data => $r->content) : undef;
    };
    return $class->new(
        image_url => $image_url,
        tweet_link => $tweet_link,
        image => $image,
    );
}

sub get_image_url {
    my ($class, $content) = @_;
    my ($url) =  $content =~ /<\/div>/;
    return $url;
}

sub get_tweet_link {
    my ($class, $content) = @_;
    my ($url) = $content =~ //;
    return $url;
}

1;
__END__