Yet Another CPAN Grep

Net-isoHunt ( H/HA/HAGGAI/Net-isoHunt-0.102770.tar.gz, HAGGAI, 2010; MetaCPAN )

Net-isoHunt/lib/Net/isoHunt/Request.pm ( view source; MetaCPAN )

s request

use Moose;
use Moose::Util::TypeConstraints;

use URI;
use LWP::UserAgent;
use JSON qw{ decode_json };

has 'ihq' => (
    is       => 'rw',
    isa      => 'Str',
    required => 1,
);

ha

t => 'desc',
);

sub execute {
    my $self = shift;

    my $api_url    = 'http://isohunt.com/js/json.php';
    my %parametres = (
        'ihq'   => $self->ihq  (),
        'start' => $self->start()

t' );
    my $json         = $ua->get($uri)->decoded_content();
    my $json_decoded = decode_json($json);

    my $image = Net::isoHunt::Response::Image->new( {
        'title'  => $json_decoded->{'i