File Coverage

blib/lib/Net/Payjp/Token.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Net::Payjp::Token;
2              
3 11     11   82 use strict;
  11         23  
  11         329  
4 11     11   75 use warnings;
  11         32  
  11         272  
5              
6 11     11   56 use base 'Net::Payjp';
  11         22  
  11         2172  
7              
8             sub create{
9 1     1 1 32 my $self = shift;
10 1         4 my %p = @_;
11              
12 1         8 $self->_request(method => 'POST', url => $self->_class_url, param => \%p);
13             }
14              
15             sub retrieve{
16 1     1 1 4 my $self = shift;
17 1         2 my $id = shift;
18 1 50       4 $self->id($id) if $id;
19              
20 1         17 $self->_request(method => 'GET', url => $self->_instance_url);
21             }
22              
23             1;