File Coverage

blib/lib/WWW/PayPal/Capture.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch	0	2	0.0
condition			n/a
subroutine	2	9	22.2
pod	7	7	100.0
total	15	34	44.1

package WWW::PayPal::Capture;

# ABSTRACT: PayPal Payments v2 capture entity

use Moo;
use namespace::clean;

our $VERSION = '0.002';


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

has data => ( is => 'rw', required => 1 );


sub id         { $_[0]->data->{id} }
sub status     { $_[0]->data->{status} }
sub amount     { $_[0]->data->{amount}{value} }
sub currency   { $_[0]->data->{amount}{currency_code} }
sub invoice_id { $_[0]->data->{invoice_id} }


sub fee_in_cent {
    my ($self) = @_;
    my $fee = $self->data->{seller_receivable_breakdown}{paypal_fee}{value} or return;
    return int($fee * 100 + 0.5);
}


sub refund {
    my ($self, %args) = @_;
    return $self->_client->payments->refund($self->id, %args);
}



1;

__END__