| line |
true |
false |
branch |
|
36
|
0 |
7 |
unless (@caller) |
|
45
|
2 |
5 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
5 |
elsif ($ref eq 'HASH') { } |
|
|
5 |
0 |
elsif (not $ref) { } |
|
48
|
3 |
2 |
if (&Scalar::Util::looks_like_number($_)) { } |
|
59
|
2 |
5 |
if $prev |
|
62
|
7 |
0 |
unless ($meta->{'logs'}) |
|
69
|
5 |
2 |
unless $STACK_TRACE // $INC{'Carp/Always.pm'} |
|
74
|
1 |
0 |
if $prev and ref $prev->[3] eq 'HASH' and ref $prev->[3]{'logs'} eq 'ARRAY' and ref $prev->[3]{'logs'}[0] eq 'HASH' and $prev->[3]{'logs'}[0]{'stack_trace'} |
|
81
|
9 |
1 |
if (@Perinci::Sub::Util::_c) |
|
85
|
1 |
9 |
unless @_c |
|
132
|
0 |
0 |
unless @r |
|
133
|
0 |
0 |
if ($r[0] eq $pkg and $r[1] =~ /^\(eval /) |
|
139
|
0 |
0 |
unless @r |
|
140
|
0 |
0 |
defined $n0 ? : |
|
275
|
2 |
0 |
if ($args{'base_name'}) { } |
|
|
0 |
0 |
elsif ($args{'base_meta'}) { } |
|
277
|
2 |
0 |
if ($args{'base_name'} =~ /(.+)::(.+)/) { } |
|
286
|
0 |
2 |
unless $base_meta |
|
290
|
0 |
0 |
unless $base_code = $args{'base_code'} |
|
300
|
2 |
2 |
if $args{$_} |
|
302
|
2 |
0 |
if ($args{'remove_args'}) |
|
305
|
1 |
1 |
if ($args{'add_args'}) |
|
309
|
0 |
1 |
if $output_meta->{'args'}{$k} |
|
313
|
1 |
1 |
if ($args{'replace_args'}) |
|
317
|
0 |
1 |
unless $output_meta->{'args'}{$k} |
|
321
|
1 |
1 |
if ($args{'rename_args'}) |
|
325
|
0 |
1 |
unless $as |
|
327
|
0 |
1 |
if $output_meta->{'args'}{$new} |
|
332
|
1 |
1 |
if ($args{'modify_args'}) |
|
337
|
1 |
1 |
if ($args{'modify_meta'}) |
|
342
|
1 |
1 |
if ($args{'output_name'}) |
|
344
|
1 |
0 |
if ($args{'output_name'} =~ /(.+)::(.+)/) { } |
|
352
|
1 |
0 |
if $args{'install_sub'} // 1 |
|
411
|
1 |
0 |
if ($base_name =~ /(.+)::(.+)/) { } |
|
419
|
1 |
0 |
if ($output_name =~ /(.+)::(.+)/) { } |
|
439
|
0 |
1 |
unless $res->[0] == 200 |