| line |
true |
false |
branch |
|
63
|
2 |
3 |
if ($disp) |
|
68
|
2 |
0 |
unless &first(sub {
$disp eq $_;
}
, @exportz) |
|
70
|
2 |
0 |
unless ($source->can($disp)) |
|
75
|
0 |
2 |
if (my $sanity = *{$can;}{'ARRAY'}) { } |
|
84
|
0 |
0 |
unless (&first(sub {
$op eq $_;
}
, @$sanity)) |
|
93
|
0 |
0 |
unless my $handler = $source->can($op) |
|
106
|
0 |
4 |
unless my $handler = $source->can($op) |
|
118
|
0 |
5 |
if ($preproc) { } |
|
122
|
0 |
0 |
unless my $handler = $source->can($preproc) |
|
135
|
0 |
5 |
unless @exportz |
|
150
|
4 |
0 |
wantarray ? : |
|
172
|
0 |
4 |
if (&first(sub {
':noexport' eq $_;
}
, @_)) { } |
|
|
2 |
2 |
elsif (@_) { } |
|
190
|
0 |
5 |
unless index $arg, ':' |
|
193
|
5 |
0 |
if (&first(sub {
$arg eq $_;
}
, @exportz)) { } |