| line |
true |
false |
branch |
|
33
|
0 |
1 |
unless $api
|
|
53
|
32 |
30 |
@_ == 1 ? :
|
|
|
77 |
62 |
ref $_[0] eq 'HASH' ? :
|
|
54
|
0 |
139 |
unless $action
|
|
55
|
0 |
139 |
unless exists $actions->{$action}
|
|
57
|
0 |
139 |
unless $method
|
|
72
|
10 |
11 |
unless defined $id
|
|
79
|
6 |
6 |
unless defined $id
|
|
101
|
4 |
9 |
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
|
|
223
|
0 |
1 |
unless defined $id
|
|
230
|
0 |
1 |
unless defined $id
|
|
237
|
1 |
1 |
unless defined $id
|
|
265
|
1 |
2 |
unless defined $id
|
|
266
|
1 |
2 |
unless defined $customer
|
|
267
|
2 |
1 |
if @errors
|
|
276
|
1 |
2 |
unless defined $id
|
|
277
|
1 |
2 |
unless defined $customer
|
|
278
|
2 |
1 |
if @errors
|
|
288
|
1 |
2 |
unless defined $id
|
|
289
|
1 |
2 |
unless defined $customer
|
|
290
|
2 |
1 |
if @errors
|
|
325
|
1 |
2 |
unless defined $id
|
|
326
|
1 |
2 |
unless defined $customer
|
|
327
|
2 |
1 |
if @errors
|
|
336
|
1 |
3 |
unless defined $id
|
|
337
|
1 |
3 |
unless defined $customer
|
|
338
|
2 |
2 |
if @errors
|
|
348
|
1 |
4 |
unless defined $id
|
|
349
|
1 |
4 |
unless defined $customer
|
|
350
|
2 |
3 |
if @errors
|
|
410
|
1 |
2 |
unless defined $id
|
|
411
|
1 |
2 |
unless defined $customer
|
|
412
|
2 |
1 |
if @errors
|
|
436
|
1 |
1 |
unless defined $id
|
|
445
|
1 |
1 |
unless defined $id
|
|
454
|
1 |
2 |
unless defined $id
|
|
484
|
1 |
1 |
unless defined $id
|
|
493
|
1 |
1 |
unless defined $id
|
|
514
|
1 |
1 |
unless defined $id
|
|
523
|
1 |
0 |
unless @_
|
|
552
|
1 |
1 |
unless defined $id
|
|
592
|
8 |
26 |
if $args and %$args
|
|
605
|
16 |
0 |
if (&blessed($value) and $value->isa('Net::Stripe::Simple::Data') and exists $value->{'id'})
|
|
614
|
21 |
30 |
if ($ref eq 'HASH') { }
|
|
|
0 |
30 |
elsif ($ref eq 'ARRAY') { }
|
|
618
|
0 |
37 |
if ref $sv
|
|
624
|
0 |
0 |
if ref $sv
|
|
628
|
0 |
1 |
$value ? :
|
|
|
1 |
29 |
&blessed($value) && $value->isa(ref &true()) ? :
|
|
642
|
0 |
15 |
if $args and %$args
|
|
650
|
36 |
4 |
$obj ? :
|
|
668
|
83 |
6 |
if ($resp->code == 200) { }
|
|
673
|
0 |
6 |
if ($resp->header('Content_Type') =~ m[text/html]) { }
|
|
686
|
0 |
89 |
if ($@)
|
|
687
|
0 |
0 |
$resp ? :
|
|
696
|
6 |
83 |
if $e
|
|
697
|
83 |
0 |
if $ret
|
|
706
|
50 |
0 |
if defined $message
|
|
714
|
8101 |
2281 |
unless $rr
|
|
715
|
0 |
2281 |
if &blessed($ref) and not $rr =~ /^JSON::/
|
|
716
|
1195 |
1086 |
if $rr eq 'HASH'
|
|
718
|
1195 |
1086 |
if ($rr eq 'HASH') { }
|
|
|
344 |
742 |
elsif ($rr eq 'ARRAY') { }
|
|
728
|
7 |
53 |
ref $_[0] ? :
|