| line |
true |
false |
branch |
|
64
|
2 |
3 |
if ($disp) |
|
69
|
2 |
0 |
unless &first(sub {
$disp eq $_;
}
, @exportz) |
|
71
|
2 |
0 |
unless ($source->can($disp)) |
|
76
|
0 |
2 |
if (my $sanity = *{$can;}{'ARRAY'}) { } |
|
85
|
0 |
0 |
unless (&first(sub {
$op eq $_;
}
, @$sanity)) |
|
94
|
0 |
0 |
unless my $handler = $source->can($op) |
|
107
|
0 |
4 |
unless my $handler = $source->can($op) |
|
117
|
0 |
5 |
unless @exportz |
|
131
|
4 |
0 |
wantarray ? : |
|
137
|
5 |
0 |
if ($inst_import) |
|
146
|
0 |
0 |
unless $source->can($preproc) |
|
149
|
0 |
5 |
$preproc ? : |
|
156
|
0 |
0 |
unless $source->can($postproc) |
|
159
|
0 |
5 |
$postproc ? : |
|
183
|
0 |
4 |
if $pre_handler |
|
189
|
0 |
4 |
if (&first(sub {
':noexport' eq $_;
}
, @_)) { } |
|
|
2 |
2 |
elsif (@_) { } |
|
207
|
0 |
5 |
unless index $arg, ':' |
|
210
|
5 |
0 |
if (&first(sub {
$arg eq $_;
}
, @exportz)) { } |
|
223
|
0 |
4 |
if $post_handler |