view release on metacpan or  search on metacpan

lib/Business/MollieAPI.pm  view on Meta::CPAN

sub log_response {
    return;
}

sub perform {
    my $self = shift;
    my $req = shift;
    $req->header('Authorization', 'Bearer ' . $self->api_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 });
    return $data;
}

1;
__END__

=encoding utf-8

=head1 NAME

t/basic.t  view on Meta::CPAN

    my $req = $api->payments->_create_request(
        amount      => '12.34',
        redirectUrl => "http://example.com/test.php",
        description => "Order #123123",
    );

    is($req->method, 'POST');
    is($req->uri, 'https://api.mollie.nl/v1/payments');
    is($req->content_type, 'application/json');

    my $o = decode_json($req->decoded_content);
    is($o->{amount}, "12.34");
    is($o->{redirectUrl}, "http://example.com/test.php");
    is($o->{description}, "Order #123123");

    my $res = $api->payments->create(
        amount      => '12.34',
        redirectUrl => "http://example.com/test.php",
        description => "Order #123123",
        method      => 'ideal',
    );