| line |
true |
false |
branch |
|
79
|
680 |
16 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
92
|
74 |
1 |
@_ == 1 ? : |
|
94
|
1 |
74 |
ref $args eq 'ARRAY' ? : |
|
99
|
334 |
461 |
@_ == 1 ? : |
|
101
|
464 |
331 |
ref $args eq 'ARRAY' ? : |
|
106
|
26 |
0 |
@_ == 1 ? : |
|
108
|
0 |
26 |
ref $args eq 'ARRAY' ? : |
|
113
|
72 |
0 |
@_ == 1 ? : |
|
115
|
0 |
72 |
ref $args eq 'ARRAY' ? : |
|
120
|
284 |
3 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
127
|
4 |
496 |
if (ref $_ and ref $_ eq "HASH") |
|
129
|
4 |
9 |
if ($value =~ s/^=//) |
|
130
|
0 |
4 |
if $DEBUG |
|
148
|
4 |
350 |
ref $_ eq 'HASH' ? : |
|
|
146 |
354 |
ref $_ eq 'ARRAY' ? : |
|
160
|
505 |
1 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
174
|
166 |
0 |
@_ ? : |
|
202
|
2490 |
4160 |
@_ == 1 ? : |
|
205
|
4142 |
2508 |
%$hooks ? : |
|
215
|
2483 |
4167 |
unless ref $imports eq "ARRAY" |
|
221
|
1017 |
5633 |
unless @$imports |
|
228
|
0 |
33813 |
unless $symbol = shift @$imports |
|
229
|
1 |
33812 |
if $done{$symbol}++ |
|
232
|
455 |
33357 |
if ($symbol =~ s/^://) |
|
233
|
445 |
10 |
if ($symbols = $tags->{$symbol}) { } |
|
|
1 |
9 |
elsif ($symbol eq 'default') { } |
|
|
9 |
0 |
elsif ($symbol eq 'all') { } |
|
234
|
8 |
437 |
if (ref $symbols eq 'ARRAY') { } |
|
|
4 |
433 |
elsif (ref $symbols eq 'HASH') { } |
|
260
|
13 |
33344 |
if (ref $symbol eq 'ARRAY') { } |
|
|
14063 |
19281 |
elsif ($can_hook and $hook = $hooks->{$symbol}) { } |
|
|
0 |
19281 |
elsif ($symbol eq 'imports') { } |
|
|
1191 |
18090 |
elsif ($symbol eq 'import') { } |
|
|
1191 |
16899 |
elsif ($symbol eq 'hooks') { } |
|
269
|
467 |
13596 |
unless ref $hook eq "CODE" |
|
291
|
1191 |
0 |
if ($symbols = shift @$imports) { } |
|
292
|
1191 |
0 |
unless ref $symbols eq "ARRAY" |
|
312
|
16714 |
198 |
if ($pkg = $any->{$symbol}) { } |
|
317
|
196 |
3 |
if (&$hook($class, $target, $symbol, $imports)) |
|
327
|
8 |
16706 |
if (ref $source eq 'CODE') { } |
|
335
|
61 |
16645 |
if $source =~ s/^(\W)// |
|
341
|
0 |
16706 |
if $DEBUG and $type eq "=" |
|
343
|
16701 |
5 |
unless $source =~ /::/ or $type eq "=" |
|
344
|
0 |
16706 |
if $DEBUG |
|
352
|
0 |
0 |
$type eq '=' ? : |
|
|
0 |
0 |
$type eq '*' ? : |
|
|
10 |
0 |
$type eq '%' ? : |
|
|
14 |
10 |
$type eq '@' ? : |
|
|
35 |
24 |
$type eq '$' ? : |
|
|
16647 |
59 |
$type eq '&' ? : |
|
360
|
633 |
5100 |
unless (@$imports or $count or $added_all) |
|
366
|
1 |
6646 |
if (@errors) |
|
393
|
77 |
3532 |
if $done{$pkg}++ |
|
408
|
825 |
2707 |
if ($symbols = ${$pkg . "::" . "EXPORT_ANY";}) |
|
409
|
0 |
825 |
unless ref $symbols eq "ARRAY" |
|
417
|
77 |
3455 |
if ($symbols = ${$pkg . "::" . "EXPORT_ALL";}) |
|
418
|
0 |
77 |
unless ref $symbols eq "ARRAY" |
|
428
|
434 |
3098 |
if ($symbols = ${$pkg . "::" . "EXPORT_TAGS";}) |
|
435
|
610 |
2922 |
if ($symbols = ${$pkg . "::" . "EXPORT_HOOKS";}) |
|
442
|
267 |
3265 |
if ($symbols = ${$pkg . "::" . "EXPORT_FAIL";}) |
|
451
|
28 |
3504 |
if ($symbols = ${$pkg . "::" . "EXPORT_BEFORE";}) |
|
452
|
26 |
0 |
ref $symbols eq 'ARRAY' ? : |
|
|
2 |
26 |
ref $symbols eq 'CODE' ? : |
|
460
|
74 |
3458 |
if ($symbols = ${$pkg . "::" . "EXPORT_AFTER";}) |
|
461
|
72 |
0 |
ref $symbols eq 'ARRAY' ? : |
|
|
2 |
72 |
ref $symbols eq 'CODE' ? : |
|
480
|
6650 |
0 |
wantarray ? : |
|
498
|
1548 |
213 |
unless (defined($item = ${$var;})) |
|
511
|
467 |
0 |
@_ == 1 ? : |
|
514
|
0 |
467 |
if ref $hook eq "CODE" |
|
518
|
0 |
467 |
unless ref $hook eq "ARRAY" |
|
524
|
0 |
467 |
unless ref $code eq "CODE" |
|
528
|
0 |
467 |
unless $nargs and $nargs > 0 |
|
536
|
0 |
5255 |
if @$symbols < $nargs |
|
544
|
0 |
5255 |
unless defined $_ |