| line |
true |
false |
branch |
|
90
|
0 |
5 |
"$]" < 5.011002 ? :
|
|
104
|
35 |
490 |
if ($cb and defined(my $data = &getdata(\&$cb, $tag)))
|
|
106
|
25 |
10 |
if $$data > 0
|
|
115
|
277 |
305 |
if $$data{'guard'}
|
|
118
|
76 |
229 |
if $name =~ /::/ or exists $core{$name}
|
|
122
|
9 |
220 |
if $op_name =~ /method/
|
|
127
|
122 |
98 |
if ($hints and $$hints{'subs::auto'}) { }
|
|
129
|
1 |
121 |
if exists $INC{$pm}
|
|
133
|
91 |
30 |
if ($cb)
|
|
134
|
13 |
78 |
if (defined(my $data = &getdata(\&$cb, $tag)))
|
|
139
|
16 |
14 |
if do {
no strict 'refs';
*$fqn{'IO'}
}
|
|
143
|
0 |
2 |
unless $file and $line
|
|
160
|
1406 |
427 |
if $$data{'guard'}
|
|
189
|
5 |
7 |
unless defined $pkg
|
|
191
|
7 |
0 |
if (ref $pkg or not $pkg =~ /$pkg_rx/)
|
|
197
|
0 |
0 |
if $pkg eq '' or $pkg =~ /^::/
|
|
203
|
1 |
12 |
if (@_ % 2)
|