File Coverage

blib/lib/Net/Payjp/Charge.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 22 63.6


line stmt bran cond sub pod time code
1             package Net::Payjp::Charge;
2              
3 9     9   51 use strict;
  9         16  
  9         244  
4 9     9   51 use warnings;
  9         17  
  9         262  
5              
6 9     9   47 use base 'Net::Payjp::Resource';
  9         20  
  9         1735  
7              
8             sub refund{
9 0     0 1   my $self = shift;
10 0           my %p = @_;
11              
12 0           $self->_request(method => 'POST', url => $self->_instance_url.'/refund', param => \%p);
13             }
14              
15             sub capture{
16 0     0 1   my $self = shift;
17 0           my %p = @_;
18              
19 0           $self->_request(method => 'POST', url => $self->_instance_url.'/capture', param => \%p);
20             }
21             1;