| line |
true |
false |
branch |
|
24
|
4 |
12 |
$sub =~ /(.*::)((?:(?!::).)*)\z/s ? : |
|
26
|
0 |
16 |
unless exists +(my $stash = \%$stashname)->{$key} |
|
28
|
0 |
16 |
if ref $stash->{$key} eq "SCALAR" |
|
31
|
0 |
16 |
unless defined *$glob{"CODE"} |
|
37
|
16 |
0 |
if ($check_importedness) |
|
40
|
29 |
19 |
unless defined *$glob{$_} |
|
49
|
11 |
0 |
if keys %imported_slots == 1 and exists $imported_slots{'SCALAR'} and not $imported_slots{'SCALAR'} and &Internals::SvREFCNT(\$$glob) == 1 and not defined *$glob{"IO"} and not defined *$glob{"FORMAT"} |
|
57
|
1 |
7 |
!$check_importedness || $imported_slots{$_} ? : |