| line |
true |
false |
branch |
|
33
|
0 |
1 |
unless $api
|
|
53
|
35 |
33 |
@_ == 1 ? :
|
|
|
79 |
68 |
ref $_[0] eq 'HASH' ? :
|
|
54
|
0 |
147 |
unless $action
|
|
55
|
0 |
147 |
unless exists $actions->{$action}
|
|
57
|
0 |
147 |
unless $method
|
|
72
|
11 |
12 |
unless defined $id
|
|
79
|
7 |
7 |
unless defined $id
|
|
101
|
5 |
11 |
unless defined $id
|
|
108
|
4 |
19 |
unless defined $customer
|
|
128
|
1 |
1 |
unless defined $id
|
|
137
|
0 |
0 |
unless defined $id
|
|
154
|
1 |
1 |
unless defined $id
|
|
163
|
1 |
1 |
unless defined $id
|
|
164
|
0 |
2 |
unless defined $charge
|
|
165
|
1 |
1 |
if @errors
|
|
176
|
1 |
1 |
unless defined $id
|
|
177
|
0 |
2 |
unless defined $charge
|
|
178
|
1 |
1 |
if @errors
|
|
188
|
0 |
1 |
unless defined $id
|
|
230
|
1 |
2 |
unless defined $id
|
|
231
|
1 |
2 |
unless defined $customer
|
|
232
|
2 |
1 |
if @errors
|
|
241
|
1 |
2 |
unless defined $id
|
|
242
|
1 |
2 |
unless defined $customer
|
|
243
|
2 |
1 |
if @errors
|
|
253
|
1 |
2 |
unless defined $id
|
|
254
|
1 |
2 |
unless defined $customer
|
|
255
|
2 |
1 |
if @errors
|
|
290
|
1 |
2 |
unless defined $id
|
|
291
|
1 |
2 |
unless defined $customer
|
|
292
|
2 |
1 |
if @errors
|
|
301
|
1 |
3 |
unless defined $id
|
|
302
|
1 |
3 |
unless defined $customer
|
|
303
|
2 |
2 |
if @errors
|
|
313
|
1 |
4 |
unless defined $id
|
|
314
|
1 |
4 |
unless defined $customer
|
|
315
|
2 |
3 |
if @errors
|
|
375
|
1 |
2 |
unless defined $id
|
|
376
|
1 |
2 |
unless defined $customer
|
|
377
|
2 |
1 |
if @errors
|
|
401
|
1 |
1 |
unless defined $id
|
|
410
|
1 |
1 |
unless defined $id
|
|
419
|
1 |
2 |
unless defined $id
|
|
449
|
1 |
1 |
unless defined $id
|
|
458
|
1 |
1 |
unless defined $id
|
|
480
|
1 |
1 |
unless defined $id
|
|
516
|
1 |
1 |
unless defined $id
|
|
525
|
1 |
0 |
unless @_
|
|
554
|
1 |
1 |
unless defined $id
|
|
594
|
8 |
28 |
if $args and %$args
|
|
607
|
16 |
0 |
if (&blessed($value) and $value->isa('Net::Stripe::Simple::Data') and exists $value->{'id'})
|
|
616
|
22 |
33 |
if ($ref eq 'HASH') { }
|
|
|
0 |
33 |
elsif ($ref eq 'ARRAY') { }
|
|
620
|
0 |
38 |
if ref $sv
|
|
626
|
0 |
0 |
if ref $sv
|
|
630
|
0 |
1 |
$value ? :
|
|
|
1 |
32 |
ref $value eq 'JSON::PP::Boolean' ? :
|
|
644
|
0 |
17 |
if $args and %$args
|
|
652
|
39 |
2 |
$obj ? :
|
|
670
|
88 |
6 |
if ($resp->code == 200) { }
|
|
675
|
0 |
6 |
if ($resp->header('Content_Type') =~ m[text/html]) { }
|
|
688
|
0 |
94 |
if ($@)
|
|
689
|
0 |
0 |
$resp ? :
|
|
698
|
6 |
88 |
if $e
|
|
699
|
88 |
0 |
if $ret
|
|
708
|
53 |
0 |
if defined $message
|
|
716
|
4272 |
1353 |
unless $rr
|
|
717
|
0 |
1353 |
if &blessed($ref) and not $rr =~ /^JSON::/
|
|
718
|
715 |
638 |
if $rr eq 'HASH'
|
|
720
|
715 |
638 |
if ($rr eq 'HASH') { }
|
|
|
122 |
516 |
elsif ($rr eq 'ARRAY') { }
|
|
730
|
7 |
56 |
ref $_[0] ? :
|