| line |
true |
false |
branch |
|
55
|
164 |
65 |
unless -d $dirname |
|
57
|
0 |
65 |
unless opendir my $dir, $dirname |
|
60
|
0 |
65 |
unless closedir $dir |
|
69
|
17 |
64 |
if $INC{$modfilename} |
|
71
|
0 |
64 |
unless open my $file, '<', $filename |
|
75
|
64 |
663 |
if (/^=(?:for|begin)\s+autoload(?:\s+|$)/) |
|
77
|
414 |
249 |
unless $descriptor_found |
|
78
|
55 |
194 |
if /^=/ |
|
80
|
64 |
130 |
if (/^\[WARC::Record::Replay\]$/) |
|
82
|
8 |
122 |
if $descriptor_found < 2 |
|
83
|
3 |
119 |
if /^\[/ |
|
86
|
64 |
55 |
if (/^([[:alpha:]][_[:alnum:]]*)\(([-_[:alnum:]]*)\)\s*=\s*(.+)$/) |
|
90
|
6 |
58 |
if ($match_valid and $match_value =~ /$3/) |
|
94
|
0 |
63 |
unless close $file |
|
112
|
2 |
23 |
unless ref $_[0] eq 'CODE' and ref $_[1] eq 'CODE' |
|
133
|
235 |
303 |
if $handler->[0]->() |
|
136
|
5 |
153 |
if (scalar @handlers == 0 and &_try_autoload_for($record)) |