| line |
true |
false |
branch |
|
21
|
0 |
1 |
unless (eval {
do {
require warnings
}
}) |
|
27
|
0 |
1 |
if (defined $ifdef::VERSION) { } |
|
28
|
0 |
0 |
if $ifdef::VERSION < 0.07 |
|
39
|
0 |
1 |
if ($ENV{'LOAD_TRACE'}) { } |
|
58
|
1396 |
1 |
ref $_[0] ? : |
|
|
1397 |
7436 |
unless &{$can;}(@_) |
|
92
|
1 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif ($module eq 'main') { } |
|
102
|
0 |
1 |
if ($_ eq 'now') { } |
|
|
1 |
0 |
elsif ($_ eq 'ondemand') { } |
|
|
0 |
0 |
elsif (/^(?:autoload|AUTOLOAD)$/) { } |
|
|
0 |
0 |
elsif ($_ eq 'dontscan') { } |
|
|
0 |
0 |
elsif ($_ eq 'inherit') { } |
|
|
0 |
0 |
elsif ($_ eq 'AutoLoader') { } |
|
103
|
0 |
0 |
$inmain ? : |
|
108
|
1 |
0 |
$inmain ? : |
|
114
|
0 |
0 |
if $inmain |
|
120
|
0 |
0 |
$inmain ? : |
|
125
|
0 |
0 |
if $inmain |
|
131
|
0 |
0 |
unless $inmain |
|
135
|
0 |
0 |
if (not $INC{'AutoLoader.pm'} or $INC{'AutoLoader.pm'} ne $INC{'load.pm'}) |
|
152
|
0 |
1 |
if (not $inmain) |
|
153
|
0 |
0 |
if $scan |
|
155
|
0 |
0 |
if $autoload |
|
161
|
0 |
0 |
if $lineno |
|
170
|
0 |
0 |
if ($class eq 'load') |
|
183
|
0 |
0 |
if _can($1, $2) |
|
186
|
0 |
0 |
if $2 eq 'DESTROY' |
|
207
|
0 |
1 |
defined $_[0] ? : |
|
214
|
0 |
1 |
unless my $file = _filename($module) |
|
216
|
0 |
1 |
unless open VERSION, "<$file" |
|
218
|
0 |
1 |
unless binmode VERSION |
|
233
|
167 |
2091 |
if /^=\w/ |
|
234
|
2003 |
88 |
if $pod or /^\s*#/ |
|
237
|
0 |
88 |
if /^__END__/ |
|
240
|
87 |
1 |
unless /^package\s+([\w:]+)\s*;/ |
|
243
|
0 |
1 |
if $package |
|
248
|
0 |
1 |
unless $package |
|
249
|
0 |
1 |
if $package ne $module |
|
256
|
0 |
1 |
if ($loadnow) { } |
|
268
|
0 |
0 |
if $@ |
|
285
|
0 |
0 |
if /^=\w/ |
|
286
|
0 |
0 |
if $pod or /^\s*#/ |
|
289
|
0 |
0 |
if /^__END__/ |
|
292
|
0 |
0 |
if /^package\s+([\w:]+)\s*;/ |
|
296
|
0 |
0 |
unless /^sub\s+([\w:]+)/ |
|
300
|
0 |
0 |
if $sub |
|
304
|
0 |
0 |
if $sub =~ /::/ |
|
312
|
0 |
0 |
defined $_ ? : |
|
|
0 |
1 |
if $sub |
|
340
|
1 |
0 |
unless ref $filename |
|
363
|
0 |
0 |
if $@ |
|
382
|
0 |
1 |
if $module eq 'main' |
|
385
|
1 |
0 |
unless exists $AUTOLOAD{$module} |
|
390
|
1 |
0 |
unless $start |
|
394
|
0 |
0 |
unless my $file = _filename($module) |
|
396
|
0 |
0 |
unless open VERSION, "<$file" |
|
398
|
0 |
0 |
unless binmode VERSION |
|
400
|
0 |
0 |
unless seek VERSION, $start, 0 |
|
414
|
0 |
0 |
if $read != $length |
|
426
|
0 |
0 |
if $@ |