File Coverage

blib/lib/Net/Payjp/Plan.pm
Criterion Covered Total %
statement 24 24 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 5 5 100.0
total 38 39 97.4


line stmt bran cond sub pod time code
1             package Net::Payjp::Plan;
2              
3 11     11   77 use strict;
  11         28  
  11         330  
4 11     11   64 use warnings;
  11         32  
  11         277  
5              
6 11     11   53 use base 'Net::Payjp';
  11         28  
  11         3436  
7              
8             sub create{
9 1     1 1 6 my $self = shift;
10 1         2 my %p = @_;
11              
12 1         8 $self->_request(method => 'POST', url => $self->_class_url, param => \%p);
13             }
14              
15             sub retrieve{
16 2     2 1 5 my $self = shift;
17 2         5 my $id = shift;
18 2 50       6 $self->id($id) if $id;
19              
20 2         11 $self->_request(method => 'GET', url => $self->_instance_url);
21             }
22              
23             sub save{
24 1     1 1 2 my $self = shift;
25 1         4 my %p = @_;
26              
27 1         4 $self->_request(method => 'POST', url => $self->_instance_url, param => \%p);
28             }
29              
30             sub all{
31 1     1 1 2 my $self = shift;
32 1         4 my %p = @_;
33              
34 1         5 $self->_request(method => 'GET', url => $self->_class_url, param => \%p);
35             }
36              
37             sub delete{
38 1     1 1 3 my $self = shift;
39              
40 1         5 $self->_request(method => 'DELETE', url => $self->_instance_url);
41             }
42              
43             1;