| line |
true |
false |
branch |
|
14
|
32 |
1386 |
if ($self eq $package) { } |
|
16
|
32 |
0 |
unless $in_isa |
|
18
|
1386 |
0 |
if (my(@call) = caller 1) |
|
19
|
1386 |
0 |
if $call[3] eq "${self}::import" |
|
21
|
0 |
1386 |
if $imports->{$pack}{$self} |
|
34
|
0 |
21171 |
if $symbol =~ /^\W/ |
|
37
|
0 |
21171 |
if ($sigil eq ':') { } |
|
|
21171 |
0 |
elsif ($sigil eq '&') { } |
|
|
0 |
0 |
elsif ($sigil eq '$') { } |
|
|
0 |
0 |
elsif ($sigil eq '@') { } |
|
|
0 |
0 |
elsif ($sigil eq '%') { } |
|
|
0 |
0 |
elsif ($sigil eq '*') { } |
|
39
|
0 |
0 |
unless (exists $tags->{$symbol}) |
|
42
|
0 |
0 |
unless (ref $tags->{$symbol} eq "ARRAY") |
|
49
|
0 |
21171 |
unless (defined *{"${from}::$symbol";}{"CODE"}) |
|
51
|
0 |
0 |
if $@ |
|
53
|
0 |
21171 |
if (defined *{"${to}::$symbol";}{'CODE'}) { } |
|
59
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"SCALAR"}) |
|
64
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"ARRAY"}) |
|
69
|
0 |
0 |
unless (defined *{"${from}::$symbol";}{"HASH"}) |