File Coverage

blib/lib/Net/Payjp/Charge.pm
Criterion Covered Total %
statement 23 33 69.7
branch 0 2 0.0
condition n/a
subroutine 8 11 72.7
pod 6 8 75.0
total 37 54 68.5


line stmt bran cond sub pod time code
1             package Net::Payjp::Charge;
2              
3 11     11   72 use strict;
  11         25  
  11         312  
4 11     11   58 use warnings;
  11         67  
  11         283  
5              
6 11     11   58 use base 'Net::Payjp';
  11         22  
  11         4126  
7              
8             sub create{
9 0     0 1 0 my $self = shift;
10 0         0 my %p = @_;
11              
12 0         0 $self->_request(method => 'POST', url => $self->_class_url, param => \%p);
13             }
14              
15             sub retrieve{
16 0     0 1 0 my $self = shift;
17 0         0 my $id = shift;
18 0 0       0 $self->id($id) if $id;
19              
20 0         0 $self->_request(method => 'GET', url => $self->_instance_url);
21             }
22              
23             sub save{
24 0     0 1 0 my $self = shift;
25 0         0 my %p = @_;
26              
27 0         0 $self->_request(method => 'POST', url => $self->_instance_url, param => \%p);
28             }
29              
30             sub all{
31 3     3 1 1943 my $self = shift;
32 3         11 my %p = @_;
33              
34 3         18 $self->_request(method => 'GET', url => $self->_class_url, param => \%p);
35             }
36              
37             sub refund{
38 1     1 1 3 my $self = shift;
39 1         3 my %p = @_;
40              
41 1         9 $self->_request(method => 'POST', url => $self->_instance_url.'/refund', param => \%p);
42             }
43              
44             sub capture{
45 1     1 1 2 my $self = shift;
46 1         4 my %p = @_;
47              
48 1         3 $self->_request(method => 'POST', url => $self->_instance_url.'/capture', param => \%p);
49             }
50              
51             sub reauth{
52 1     1 0 3 my $self = shift;
53 1         2 my %p = @_;
54              
55 1         4 $self->_request(method => 'POST', url => $self->_instance_url.'/reauth', param => \%p);
56             }
57              
58             sub tds_finish{
59 1     1 0 3 my $self = shift;
60              
61 1         3 $self->_request(method => 'POST', url => $self->_instance_url.'/tds_finish');
62             }
63              
64             1;