File Coverage

blib/lib/Net/Payjp/Customer.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 2 0.0
total 30 32 93.7


line stmt bran cond sub pod time code
1             package Net::Payjp::Customer;
2              
3 9     9   46 use strict;
  9         15  
  9         249  
4 9     9   44 use warnings;
  9         16  
  9         232  
5              
6 9     9   45 use base 'Net::Payjp::Resource';
  9         17  
  9         605  
7              
8 9     9   4970 use Net::Payjp::Customer::Card;
  9         22  
  9         262  
9 9     9   4790 use Net::Payjp::Customer::Subscription;
  9         24  
  9         1258  
10              
11             sub card{
12 1     1 0 3 my $self = shift;
13 1         3 my $cus_id = shift;
14 1         9 $self->cus_id($cus_id);
15 1         8 my $class = Net::Payjp::Customer::Card->new(
16             api_key => $self->api_key,
17             cus_id => $self->cus_id
18             );
19             }
20              
21             sub subscription{
22 1     1 0 4 my $self = shift;
23 1         4 my $cus_id = shift;
24 1         8 $self->cus_id($cus_id);
25 1         9 my $class = Net::Payjp::Customer::Subscription->new(
26             api_key => $self->api_key,
27             cus_id => $self->cus_id
28             );
29             }
30              
31             1;