| line |
true |
false |
branch |
|
55
|
4 |
5 |
unless -d $dirname |
|
57
|
0 |
5 |
unless opendir my $dir, $dirname |
|
60
|
0 |
5 |
unless closedir $dir |
|
69
|
4 |
17 |
if $INC{$modfilename} |
|
71
|
0 |
17 |
unless open my $file, '<', $filename |
|
75
|
17 |
150 |
if (/^=(?:for|begin)\s+autoload(?:\s+|$)/) |
|
77
|
85 |
65 |
unless $descriptor_found |
|
78
|
10 |
55 |
if /^=/ |
|
80
|
17 |
38 |
if (/^\[WARC::Record::Replay\]$/) |
|
82
|
8 |
30 |
if $descriptor_found < 2 |
|
83
|
3 |
27 |
if /^\[/ |
|
86
|
17 |
10 |
if (/^([[:alpha:]][_[:alnum:]]*)\(([-_[:alnum:]]*)\)\s*=\s*(.+)$/) |
|
90
|
4 |
13 |
if ($match_valid and $match_value =~ /$3/) |
|
94
|
0 |
16 |
unless close $file |
|
112
|
2 |
15 |
unless ref $_[0] eq 'CODE' and ref $_[1] eq 'CODE' |
|
133
|
95 |
123 |
if $handler->[0]->() |
|
136
|
3 |
58 |
if (scalar @handlers == 0 and &_try_autoload_for($record)) |