| line |
true |
false |
branch |
|
15
|
34 |
1512 |
if ($self eq $package) { } |
|
17
|
34 |
0 |
unless $in_isa |
|
19
|
1512 |
0 |
if (my(@call) = caller 1) |
|
20
|
1512 |
0 |
if $call[3] eq "${self}::import" |
|
22
|
0 |
1512 |
if $imports->{$pack}{$self} |
|
40
|
5 |
16849 |
$no ? : |
|
41
|
5 |
16849 |
if ($i =~ /^:(\w+)$/) { } |
|
43
|
0 |
5 |
unless exists do {
"${self}::EXPORT_TAGS"
}->{$name} |
|
44
|
0 |
0 |
$no ? : |
|
|
0 |
82 |
if ($_ =~ s/^!//) { } |
|
58
|
0 |
0 |
unless defined &{"${self}::$name";} or exists $found_symbols->{$name} |
|
68
|
0 |
16822 |
if $symbol =~ /^\W/ |
|
71
|
0 |
16822 |
if ($sigil eq ':') { } |
|
|
16822 |
0 |
elsif ($sigil eq '&') { } |
|
|
0 |
0 |
elsif ($sigil eq '$') { } |
|
|
0 |
0 |
elsif ($sigil eq '@') { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
|
0 |
0 |
elsif ($sigil eq '*') { } |
|
73
|
0 |
0 |
unless (exists $tags->{$symbol}) |
|
76
|
0 |
0 |
unless (ref $tags->{$symbol} eq "ARRAY") |
|
83
|
0 |
16822 |
unless (defined *{"${from}::$symbol";}{"CODE"}) |
|
85
|
0 |
0 |
if $@ |
|
87
|
16754 |
68 |
if (not $exports->{$to}{$symbol}) |
|
88
|
0 |
16754 |
if (defined *{"${to}::$symbol";}{'CODE'}) { } |
|
96
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"SCALAR"}) |
|
101
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"ARRAY"}) |
|
106
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"HASH"}) |