| 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 ? :
|
|
307
|
6 |
0 |
if ($args{'base_name'}) { }
|
|
|
0 |
0 |
elsif ($args{'base_meta'}) { }
|
|
308
|
6 |
0 |
if ($args{'base_name'} =~ /(.+)::(.+)/) { }
|
|
319
|
0 |
6 |
unless $base_meta
|
|
323
|
0 |
0 |
unless $base_code = $args{'base_code'}
|
|
330
|
1 |
5 |
$args{'wrap_code'} ? :
|
|
334
|
2 |
10 |
if $args{$_}
|
|
336
|
3 |
3 |
if ($args{'remove_args'})
|
|
339
|
1 |
5 |
if ($args{'add_args'})
|
|
343
|
0 |
1 |
if $output_meta->{'args'}{$k}
|
|
347
|
1 |
5 |
if ($args{'replace_args'})
|
|
351
|
0 |
1 |
unless $output_meta->{'args'}{$k}
|
|
355
|
1 |
5 |
if ($args{'rename_args'})
|
|
359
|
0 |
1 |
unless $as
|
|
361
|
0 |
1 |
if $output_meta->{'args'}{$new}
|
|
366
|
1 |
5 |
if ($args{'modify_args'})
|
|
371
|
1 |
5 |
if ($args{'modify_meta'})
|
|
377
|
4 |
2 |
if (not defined $args{'output_name'}) { }
|
|
|
2 |
0 |
elsif ($args{'output_name'} =~ /(.+)::(.+)/) { }
|
|
380
|
0 |
4 |
if ($base_pkg eq $output_pkg)
|
|
381
|
0 |
0 |
if ($args{'die'}) { }
|
|
397
|
6 |
0 |
if $args{'install_sub'} // 1
|
|
458
|
2 |
0 |
if ($base_name =~ /(.+)::(.+)/) { }
|
|
466
|
1 |
1 |
if (not defined $output_name) { }
|
|
|
1 |
0 |
elsif ($output_name =~ /(.+)::(.+)/) { }
|
|
467
|
0 |
1 |
if $base_pkg eq $caller
|