| line |
true |
false |
branch |
|
55
|
156 |
62 |
unless -d $dirname |
|
57
|
0 |
62 |
unless opendir my $dir, $dirname |
|
60
|
0 |
62 |
unless closedir $dir |
|
69
|
15 |
63 |
if $INC{$modfilename} |
|
71
|
0 |
63 |
unless open my $file, '<', $filename |
|
75
|
63 |
654 |
if (/^=(?:for|begin)\s+autoload(?:\s+|$)/) |
|
77
|
407 |
247 |
unless $descriptor_found |
|
78
|
55 |
192 |
if /^=/ |
|
80
|
63 |
129 |
if (/^\[WARC::Record::Replay\]$/) |
|
82
|
8 |
121 |
if $descriptor_found < 2 |
|
83
|
3 |
118 |
if /^\[/ |
|
86
|
63 |
55 |
if (/^([[:alpha:]][_[:alnum:]]*)\(([-_[:alnum:]]*)\)\s*=\s*(.+)$/) |
|
90
|
5 |
58 |
if ($match_valid and $match_value =~ /$3/) |
|
94
|
0 |
62 |
unless close $file |
|
112
|
2 |
19 |
unless ref $_[0] eq 'CODE' and ref $_[1] eq 'CODE' |
|
133
|
221 |
285 |
if $handler->[0]->() |
|
136
|
4 |
145 |
if (scalar @handlers == 0 and &_try_autoload_for($record)) |