File Coverage

blib/lib/WWW/ModulrFinance.pm

Criterion	Covered	Total	%
statement	26	66	39.3
branch	0	12	0.0
condition	0	5	0.0
subroutine	9	22	40.9
pod	10	12	83.3
total	45	117	38.4

package WWW::ModulrFinance;

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

use LWP::UserAgent;
use HTTP::Date qw/time2str/;
use Digest::HMAC_SHA1 qw(hmac_sha1);
use MIME::Base64;
use URI::Escape qw/uri_escape/;
use Carp qw/croak/;
use JSON;

sub new {
    my $class = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;

    $params{api_key} or croak "api_key is required";
    $params{hmac_secret} or croak "hmac_secret is required";

    $params{base_url} ||= 'https://api-sandbox.modulrfinance.com/api-sandbox/';
    $params{ua} ||= LWP::UserAgent->new(agent => "WWW-ModulrFinance-$VERSION");

    return bless \%params, $class;
}

sub get_accounts {
    (shift)->request('GET', 'accounts');
}

sub get_account {
    my ($self, $id) = @_;
    return $self->request('GET', 'accounts/' . int($id));
}

sub update_account {
    my ($self, $id, $data) = @_;
    return $self->request('PUT', 'accounts/' . int($id), $data);
}

sub get_customer_accounts {
    my ($self, $cid) = @_;
    return $self->request('GET', 'customers/' . int($cid) . '/accounts');
}

sub create_customer_account {
    my ($self, $cid, $data) = @_;
    return $self->request('POST', 'customers/' . int($cid) . '/accounts', $data);
}

sub get_transactions {
    my ($self, $id) = @_;
    return $self->request('GET', 'accounts/' . int($id) . '/transactions');
}

sub get_payments {
    (shift)->request('GET', 'payments');
}

sub post_payments {
    my ($self, $data) = @_;
    return $self->request('POST', 'payments', $data);
}

sub post_batchpayments {
    my ($self, $data) = @_;
    return $self->request('POST', 'batchpayments', $data);
}

sub get_batchpayment {
    my ($self, $id) = @_;
    return $self->request('GET', 'batchpayments/' . int($id));
}

sub request {
    my ($self, $method, $uri, $data) = @_;

    my $req = HTTP::Request->new($method => $self->{base_url} . $uri => $self->__signature());
    $req->content(encode_json($data)) if $data;

    # print Dumper(\$req); use Data::Dumper;

    my $res = $self->{ua}->request($req);
    if ($res->header('Content-Type') =~ 'json') {
        return decode_json($res->content);
    }

    croak $res->status_line unless $res->is_success;
    return $res->content;
}

sub __signature {
    my ($self) = @_;

    my $date = time2str(time());
    my $nonce = time() . '-' . $$ . '-' . rand(100000);
    my $str = "date: $date\nx-mod-nonce: $nonce";
    my $sig = uri_escape(encode_base64(hmac_sha1($str, $self->{hmac_secret}), ''));

    # Authorization: Signature keyId="57502612d1bb2c0001000025fd53850cd9a94861507a5f7cca236882",algorithm="hmac-sha1",headers="date x-mod-nonce",signature="WBMr%2FYdhysbmiIEkdTrf2hP7SfA%3D"
    return [
        'Date' => $date,
        'x-mod-nonce' => $nonce,
        'Authorization' => qq~Signature keyId="~ . $self->{api_key} . qq~",algorithm="hmac-sha1",headers="date x-mod-nonce",signature="$sig"~
    ];
}

1;
__END__