| line |
true |
false |
branch |
|
14
|
31 |
1341 |
if ($self eq $package) { } |
|
16
|
31 |
0 |
unless $in_isa |
|
18
|
1341 |
0 |
if (my(@call) = caller 1) |
|
19
|
1341 |
0 |
if $call[3] eq "${self}::import" |
|
21
|
0 |
1341 |
if $imports->{$pack}{$self} |
|
34
|
0 |
143380 |
if $symbol =~ /^\W/ |
|
37
|
143380 |
0 |
if ($sigil eq '&') { } |
|
|
0 |
0 |
elsif ($sigil eq '$') { } |
|
|
0 |
0 |
elsif ($sigil eq '@') { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
|
0 |
0 |
elsif ($sigil eq '*') { } |
|
38
|
0 |
143380 |
unless (defined *{"${from}::$symbol";}{'CODE'}) |
|
40
|
0 |
0 |
if $@ |
|
42
|
0 |
143380 |
if (defined *{"${to}::$symbol";}{'CODE'}) { } |
|
48
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{'SCALAR'}) |
|
53
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{'ARRAY'}) |
|
58
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{'HASH'}) |