| 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 |