| line |
true |
false |
branch |
|
29
|
3 |
3 |
unless @arg |
|
37
|
0 |
6 |
unless my $code = $export{$export} |
|
40
|
1 |
5 |
if ref $arg[0] eq 'HASH' |
|
57
|
13 |
1 |
if $opt{'name'} |
|
68
|
2 |
16 |
if @_ < 2 |
|
71
|
4 |
12 |
if ((reftype($_[1]) // '') eq 'CODE') { } |
|
|
1 |
11 |
elsif ((reftype($_[2]) // '') ne 'CODE') { } |
|
81
|
4 |
11 |
if ($name =~ /::/) { } |
|
82
|
1 |
3 |
if $package |
|
94
|
2 |
12 |
if (defined &$name) |
|
95
|
1 |
1 |
unless $opt{'redef'} |
|
105
|
0 |
0 |
if $old_name |
|
106
|
0 |
0 |
unless $opt{'lie'} |
|
117
|
10 |
3 |
if $old_name ne '__ANON__' |
|
118
|
3 |
0 |
unless $opt{'lie'} |
|
130
|
0 |
3 |
unless $reached |
|
133
|
0 |
3 |
unless $reached == $sub |