File Coverage

blib/lib/Net/Payjp/Statement.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 2 3 66.6
total 27 29 93.1


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