Yet Another CPAN Grep

WebService-BaseClientRole ( I/IR/IRONCAMEL/WebService-BaseClientRole-0.0008.tar.gz, IRONCAMEL, 2014; MetaCPAN )

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

ERSION = '0.0008'; # VERSION

use HTTP::Request::Common qw(DELETE GET POST PUT);
use JSON qw(decode_json encode_json);
use LWP::UserAgent;

has base_url => ( is => 'ro', required => 1 );

has ua => (

self->req(POST $path, content => encode_json $params);
}

sub put {
    my ($self, $path, $params) = @_;
    return $self->req(PUT $path, content => encode_json $params);
}

sub delete {
    my ($self

ATED in favor of'
        . ' WebService::Client.';
    $req->header(content_type => 'application/json');
    $self->_log_request($req);
    my $res = $self->ua->request($req);
    Moo::Role->apply_ro