line |
true |
false |
branch |
27
|
3 |
8 |
if ($pkg =~ s/::(\w+)\z//) { } |
40
|
0 |
1 |
unless not length $pkg or package_exists($pkg) |
45
|
0 |
2 |
if $k =~ /::$/ |
47
|
0 |
2 |
unless ("$v" =~ /^\*/) |
52
|
1 |
1 |
if (defined *$v{'CODE'}) |
56
|
1 |
1 |
if (defined *$v{'HASH'}) |
60
|
1 |
1 |
if (defined *$v{'ARRAY'}) |
64
|
1 |
1 |
if (defined *$v{'SCALAR'} and defined ${*$v;}) |
70
|
1 |
1 |
unless ($n) |
84
|
0 |
1 |
unless not length $pkg or package_exists($pkg) |
89
|
0 |
2 |
if $k =~ /::$/ |
90
|
1 |
1 |
if (defined *$v{'CODE'}) |
103
|
0 |
5 |
unless not length $pkg or package_exists($pkg) |
110
|
0 |
5 |
if $$ref_mem{"$symtbl"}++ |
114
|
0 |
4 |
unless s/::$// |
115
|
4 |
0 |
length $pkg ? : |
117
|
2 |
2 |
if $recursive |