| line |
true |
false |
branch |
|
74
|
0 |
0 |
unless $l =~ / | / |
|
83
|
0 |
0 |
if $l[$n] =~ /\Aqaa-qtz\Z/ |
|
90
|
0 |
0 |
if ($c3 =~ /\A(\w\w\w)\s*\x28B\x29
(\w\w\w)\s+\x28T\x29\Z/) |
|
99
|
0 |
0 |
unless length $c3 == 3 |
|
100
|
0 |
0 |
unless length $c2 == 2 or not $c2 |
|
102
|
0 |
0 |
if ($e =~ /\ABokm\345l, Norwegian; Norwegian Bokm\345l\Z/s) { } |
|
|
0 |
0 |
elsif ($e =~ /\ADutch; Flemish\Z/s) { } |
|
|
0 |
0 |
elsif ($e =~ /\ARomanian; Moldavian; Moldovan\Z/s) { } |
|
|
0 |
0 |
elsif ($e =~ /\ASpanish; Castilian\Z/s) { } |
|
110
|
0 |
0 |
if ($c2) |
|
145
|
0 |
0 |
if (my $f = do {
'zzz.data'
}) |
|
3397
|
0 |
1 |
if eval "eof(${p}::DATA)" |
|
3399
|
0 |
1 |
if $@ |
|
3401
|
0 |
1 |
if $@ |