File Coverage

blib/lib/Net/Payjp/ThreeDSecureRequest.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package Net::Payjp::ThreeDSecureRequest;
2              
3 15     15   99 use strict;
  15         55  
  15         644  
4 15     15   77 use warnings;
  15         25  
  15         877  
5              
6 15     15   84 use base 'Net::Payjp';
  15         26  
  15         5282  
7              
8             sub create{
9 1     1 1 10 my $self = shift;
10 1         6 my %p = @_;
11              
12 1         3 $self->_request(method => 'POST', url => $self->_class_url, param => \%p);
13             }
14              
15             sub retrieve{
16 1     1 1 3 my $self = shift;
17 1         3 my $id = shift;
18 1 50       6 $self->id($id) if $id;
19              
20 1         12 $self->_request(method => 'GET', url => $self->_instance_url);
21             }
22              
23             sub all{
24 1     1 1 3 my $self = shift;
25 1         4 my %p = @_;
26              
27 1         4 $self->_request(method => 'GET', url => $self->_class_url, param => \%p);
28             }
29              
30             sub _class_url{
31 3     3   9 my $self = shift;
32 3         20 return $self->api_base.'/v1/three_d_secure_requests';
33             }
34             1;