Yet Another CPAN Grep

WebService-NationBuilder ( A/AA/AANARI/WebService-NationBuilder-0.0107.tar.gz, AANARI, 2014; MetaCPAN )

WebService-NationBuilder/lib/WebService/NationBuilder/HTTP.pm ( view source; MetaCPAN )

t;
use warnings;

use Moo::Role;
use HTTP::Request::Common qw(GET POST PUT DELETE);
use JSON qw(from_json to_json);
use LWP::UserAgent;
use List::Util qw(any pairgrep);
use Log::Any qw($log);
use Carp

 $uri, content => to_json $body);
}

sub http_put {
    my ($self, $path, $body) = @_;
    my $uri = $self->_request_uri($path);
    return $self->_req(PUT $uri, content => to_json $body);
}

sub http

r '. $self->access_token));
    $req->header(content_type => 'application/json');
    $req->header(accept => 'application/json');
    $self->_log_request($req);
    my $res = $self->ua->request($req);