File Coverage

blib/lib/WWW/PayPal/Refund.pm
Criterion Covered Total %
statement 6 11 54.5
branch n/a
condition n/a
subroutine 2 7 28.5
pod 5 5 100.0
total 13 23 56.5


line stmt bran cond sub pod time code
1             package WWW::PayPal::Refund;
2              
3             # ABSTRACT: PayPal Payments v2 refund entity
4              
5 2     2   14 use Moo;
  2         5  
  2         14  
6 2     2   883 use namespace::clean;
  2         5  
  2         12  
7              
8             our $VERSION = '0.002';
9              
10              
11             has _client => (
12             is => 'ro',
13             required => 1,
14             weak_ref => 1,
15             init_arg => 'client',
16             );
17              
18             has data => ( is => 'rw', required => 1 );
19              
20              
21 0     0 1   sub id { $_[0]->data->{id} }
22 0     0 1   sub status { $_[0]->data->{status} }
23 0     0 1   sub amount { $_[0]->data->{amount}{value} }
24 0     0 1   sub currency { $_[0]->data->{amount}{currency_code} }
25 0     0 1   sub note { $_[0]->data->{note_to_payer} }
26              
27              
28              
29             1;
30              
31             __END__