File Coverage

blib/lib/WWW/PayPal/API/Payments.pm

Criterion	Covered	Total	%
statement	15	32	46.8
branch	0	12	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	56	41.0

package WWW::PayPal::API::Payments;

# ABSTRACT: PayPal Payments v2 API (captures, refunds, authorizations)

use Moo;
use Carp qw(croak);
use WWW::PayPal::Capture;
use WWW::PayPal::Refund;
use namespace::clean;

our $VERSION = '0.002';


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

has openapi_operations => (
    is      => 'lazy',
    builder => sub {
        # Pre-computed from paypal-rest-api-specifications
        # (openapi/payments_payment_v2.json).
        return {
            'captures.get'         => { method => 'GET',  path => '/v2/payments/captures/{capture_id}' },
            'captures.refund'      => { method => 'POST', path => '/v2/payments/captures/{capture_id}/refund' },
            'refunds.get'          => { method => 'GET',  path => '/v2/payments/refunds/{refund_id}' },
            'authorizations.get'   => { method => 'GET',  path => '/v2/payments/authorizations/{authorization_id}' },
            'authorizations.capture' => { method => 'POST', path => '/v2/payments/authorizations/{authorization_id}/capture' },
            'authorizations.void'  => { method => 'POST', path => '/v2/payments/authorizations/{authorization_id}/void' },
        };
    },
);

with 'WWW::PayPal::Role::OpenAPI';

sub get_capture {
    my ($self, $id) = @_;
    croak 'capture_id required' unless $id;
    my $data = $self->call_operation('captures.get', path => { capture_id => $id });
    return WWW::PayPal::Capture->new(client => $self->client, data => $data);
}


sub refund {
    my ($self, $capture_id, %args) = @_;
    croak 'capture_id required' unless $capture_id;

    my $body = {};
    $body->{amount}         = $args{amount}         if $args{amount};
    $body->{invoice_id}     = $args{invoice_id}     if $args{invoice_id};
    $body->{note_to_payer}  = $args{note_to_payer}  if $args{note_to_payer};

    my $data = $self->call_operation('captures.refund',
        path => { capture_id => $capture_id },
        body => $body,
    );
    return WWW::PayPal::Refund->new(client => $self->client, data => $data);
}


sub get_refund {
    my ($self, $id) = @_;
    croak 'refund_id required' unless $id;
    my $data = $self->call_operation('refunds.get', path => { refund_id => $id });
    return WWW::PayPal::Refund->new(client => $self->client, data => $data);
}


1;

__END__