File Coverage

blib/lib/Net/Payjp/Transfer.pm
Criterion Covered Total %
statement 19 19 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 29 30 96.6


line stmt bran cond sub pod time code
1             package Net::Payjp::Transfer;
2              
3 11     11   93 use strict;
  11         25  
  11         342  
4 11     11   51 use warnings;
  11         24  
  11         272  
5              
6 11     11   53 use base 'Net::Payjp';
  11         25  
  11         2765  
7              
8             sub retrieve{
9 1     1 1 4 my $self = shift;
10 1         4 my $id = shift;
11 1 50       4 $self->id($id) if $id;
12              
13 1         8 $self->_request(method => 'GET', url => $self->_instance_url);
14             }
15              
16             sub all{
17 1     1 1 4 my $self = shift;
18 1         3 my %p = @_;
19              
20 1         11 $self->_request(method => 'GET', url => $self->_class_url, param => \%p);
21             }
22              
23             sub charges{
24 1     1 1 3 my $self = shift;
25 1         4 my %p = @_;
26              
27 1         5 $self->_request(method => 'GET', url => $self->_instance_url.'/charges', param => \%p);
28             }
29              
30             1;