line |
true |
false |
branch |
24
|
0 |
0 |
if ref $this |
30
|
0 |
0 |
!ref($_[0]) ? : |
33
|
0 |
0 |
unless ref $thi |
61
|
0 |
0 |
if ($entry =~ /^\$(.*)/) { } |
|
0 |
0 |
elsif ($entry =~ /^\@(.*)/) { } |
|
0 |
0 |
elsif ($entry =~ /^\%(.*)/) { } |
|
0 |
0 |
elsif ($entry =~ /^\*(.*)/) { } |
|
0 |
0 |
elsif ($entry =~ /^\&(.*)/) { } |
94
|
0 |
0 |
ref $_[0] ? : |
97
|
0 |
0 |
if ($thi) |
102
|
0 |
0 |
if $thi->err |
106
|
0 |
0 |
unless $packname =~ /::$/ |
108
|
0 |
0 |
if $packname =~ /^(?:main::)?(?:Thread::Isolate|threads|UNIVERSAL|Exporter|AutoLoader|CORE|Carp|Config|DynaLoader|Errno|Win32|XSLoader|attributes|overload|strict|utf8|vars|warnings|Storable|Fcntl|Internals|PerlIO|Symbol)(?:::|$)/ |
113
|
0 |
0 |
if not defined %$package or $$this{'scan_pack_entries'}{$package} |
122
|
0 |
0 |
if $symb =~ /[^\w:]/ or $symb =~ /^[1-9\.]/ |
124
|
0 |
0 |
if ($symb =~ /::$/) { } |
126
|
0 |
0 |
if $recursive |
130
|
0 |
0 |
if (defined &$fullname) |
132
|
0 |
0 |
if (tied *{$fullname;} or *{$fullname;}{'IO'}) |
134
|
0 |
0 |
if (defined *{$fullname;}{'ARRAY'}) |
136
|
0 |
0 |
if (defined *{$fullname;}{'HASH'}) |