Yet Another CPAN Grep

Net-Nakamap ( H/HA/HANDLE/Net-Nakamap-0.03.tar.gz, HANDLE, 2013; MetaCPAN )

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

package Net::Nakamap;
use 5.008_001;
use HTTP::Request::Common;
use JSON::XS;
use LWP::UserAgent;
use Mouse;

our $VERSION = '0.03';

has ua => (
    is      => 'rw',
    lazy    => 1,
    default =>

,
    );

    my $res = $self->ua->post($uri);

    if ($res->is_success) {
        return decode_json($res->content);
    }
    else {
        $self->last_error($res->content);
        return undef;

s,
    );

    my $res = $self->ua->get($uri);

    if ($res->is_success) {
        return decode_json($res->content);
    }
    else {
        $self->last_error($res->content);
        return undef;