| line |
true |
false |
branch |
|
38
|
0 |
7 |
unless (@caller) |
|
47
|
2 |
5 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
5 |
elsif ($ref eq 'HASH') { } |
|
|
5 |
0 |
elsif (not $ref) { } |
|
50
|
3 |
2 |
if (&Scalar::Util::looks_like_number($_)) { } |
|
61
|
2 |
5 |
if $prev |
|
64
|
7 |
0 |
unless ($meta->{'logs'}) |
|
71
|
5 |
2 |
unless $STACK_TRACE // $INC{'Carp/Always.pm'} |
|
76
|
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'} |
|
83
|
8 |
1 |
if (@Perinci::Sub::Util::_c) |
|
87
|
1 |
8 |
unless @_c |
|
134
|
0 |
0 |
unless @r |
|
135
|
0 |
0 |
if ($r[0] eq $pkg and $r[1] =~ /^\(eval /) |
|
141
|
0 |
0 |
unless @r |
|
142
|
0 |
0 |
defined $n0 ? : |
|
292
|
4 |
0 |
if ($args{'base_name'}) { } |
|
|
0 |
0 |
elsif ($args{'base_meta'}) { } |
|
294
|
4 |
0 |
if ($args{'base_name'} =~ /(.+)::(.+)/) { } |
|
303
|
0 |
4 |
unless $base_meta |
|
307
|
0 |
0 |
unless $base_code = $args{'base_code'} |
|
314
|
1 |
3 |
$args{'wrap_code'} ? : |
|
318
|
2 |
6 |
if $args{$_} |
|
320
|
2 |
2 |
if ($args{'remove_args'}) |
|
323
|
1 |
3 |
if ($args{'add_args'}) |
|
327
|
0 |
1 |
if $output_meta->{'args'}{$k} |
|
331
|
1 |
3 |
if ($args{'replace_args'}) |
|
335
|
0 |
1 |
unless $output_meta->{'args'}{$k} |
|
339
|
1 |
3 |
if ($args{'rename_args'}) |
|
343
|
0 |
1 |
unless $as |
|
345
|
0 |
1 |
if $output_meta->{'args'}{$new} |
|
350
|
1 |
3 |
if ($args{'modify_args'}) |
|
355
|
1 |
3 |
if ($args{'modify_meta'}) |
|
360
|
1 |
3 |
if ($args{'output_name'}) |
|
362
|
1 |
0 |
if ($args{'output_name'} =~ /(.+)::(.+)/) { } |
|
370
|
1 |
0 |
if $args{'install_sub'} // 1 |
|
429
|
1 |
0 |
if ($base_name =~ /(.+)::(.+)/) { } |
|
437
|
1 |
0 |
if ($output_name =~ /(.+)::(.+)/) { } |
|
457
|
0 |
1 |
unless $res->[0] == 200 |