Yet Another CPAN Grep

Business-MollieAPI ( S/ST/STUIFZAND/Business-MollieAPI-0.10.tar.gz, STUIFZAND, 2014; MetaCPAN )

Business-MollieAPI/lib/Business/MollieAPI.pm ( view source; MetaCPAN )

I;

use strict;
use 5.008_005;
our $VERSION = '0.10';

use Moo;
use URI;

use LWP::UserAgent;
use JSON::XS;

use Business::MollieAPI::Payments;
use Business::MollieAPI::Methods;
use Business::MollieAP

key);
    my $ua = LWP::UserAgent->new();
    my $res = $ua->request($req);
    my $data = decode_json($res->decoded_content);
    $self->log_response({ request => $req, response => $res });
    retur

Business-MollieAPI ( S/ST/STUIFZAND/Business-MollieAPI-0.10.tar.gz, STUIFZAND, 2014; MetaCPAN )

Business-MollieAPI/lib/Business/MollieAPI/Resource.pm ( view source; MetaCPAN )

e Business::MollieAPI::Resource;
use Moo::Role;
use HTTP::Request;
use HTTP::Request::Common;
use JSON::XS;

has client => (
    is => 'ro',
);

requires 'name';

sub _create_request {
    my $self =

     $self->client->endpoint);

    my $body = encode_json(\%args);

    my $req = POST $url->as_string,
        Content_Type => 'application/json',
        Content => $body;

    return $req;
}

sub