| line |
true |
false |
branch |
|
39
|
0 |
7 |
unless (@caller) |
|
48
|
2 |
5 |
if ($ref eq 'ARRAY') { } |
|
|
0 |
5 |
elsif ($ref eq 'HASH') { } |
|
|
5 |
0 |
elsif (not $ref) { } |
|
51
|
3 |
2 |
if (&Scalar::Util::looks_like_number($_)) { } |
|
62
|
2 |
5 |
if $prev |
|
65
|
7 |
0 |
unless ($meta->{'logs'}) |
|
72
|
5 |
2 |
unless $STACK_TRACE // $INC{'Carp/Always.pm'} |
|
77
|
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'} |
|
84
|
8 |
1 |
if (@Perinci::Sub::Util::_c) |
|
88
|
1 |
8 |
unless @_c |
|
135
|
0 |
0 |
unless @r |
|
136
|
0 |
0 |
if ($r[0] eq $pkg and $r[1] =~ /^\(eval /) |
|
142
|
0 |
0 |
unless @r |
|
143
|
0 |
0 |
defined $n0 ? : |
|
302
|
6 |
0 |
if ($args{'base_name'}) { } |
|
|
0 |
0 |
elsif ($args{'base_meta'}) { } |
|
303
|
6 |
0 |
if ($args{'base_name'} =~ /(.+)::(.+)/) { } |
|
314
|
0 |
6 |
unless $base_meta |
|
318
|
0 |
0 |
unless $base_code = $args{'base_code'} |
|
325
|
1 |
5 |
$args{'wrap_code'} ? : |
|
329
|
2 |
10 |
if $args{$_} |
|
331
|
3 |
3 |
if ($args{'remove_args'}) |
|
334
|
1 |
5 |
if ($args{'add_args'}) |
|
338
|
0 |
1 |
if $output_meta->{'args'}{$k} |
|
342
|
1 |
5 |
if ($args{'replace_args'}) |
|
346
|
0 |
1 |
unless $output_meta->{'args'}{$k} |
|
350
|
1 |
5 |
if ($args{'rename_args'}) |
|
354
|
0 |
1 |
unless $as |
|
356
|
0 |
1 |
if $output_meta->{'args'}{$new} |
|
361
|
1 |
5 |
if ($args{'modify_args'}) |
|
366
|
1 |
5 |
if ($args{'modify_meta'}) |
|
372
|
4 |
2 |
if (not defined $args{'output_name'}) { } |
|
|
2 |
0 |
elsif ($args{'output_name'} =~ /(.+)::(.+)/) { } |
|
375
|
0 |
4 |
if $base_pkg eq $output_pkg |
|
387
|
6 |
0 |
if $args{'install_sub'} // 1 |
|
448
|
2 |
0 |
if ($base_name =~ /(.+)::(.+)/) { } |
|
456
|
1 |
1 |
if (not defined $output_name) { } |
|
|
1 |
0 |
elsif ($output_name =~ /(.+)::(.+)/) { } |
|
457
|
0 |
1 |
if $base_pkg eq $caller |
|
480
|
0 |
2 |
unless $res->[0] == 200 |