Branch Coverage

blib/lib/Text/Perfide/BookSync.pm
Criterion Covered Total %
branch 20 78 25.6


line true false branch
81 0 0 if ($wcmp < 1.1 and $wcmp > 0.9) { }
0 0 elsif ($wcmp > 1.1 and $wcmp < 1.5 or $wcmp < 0.9 and $wcmp > 0.5) { }
107 0 0 if (defined $dir) { }
110 0 0 unless open my $html, '>', "$dir$fileL" . "_$fileR.html"
128 0 0 if (defined $dir) { }
137 0 0 unless open my $syncl, '>', "$fL.sync"
138 0 0 unless open my $syncr, '>', "$fR.sync"
140 0 0 if defined $$options{'outfile'}
144 0 0 unless $rm > 0
145 0 0 unless $rm > 0
148 0 0 unless open my $fhL, '<', $fL
149 0 0 unless open my $fhR, '<', $fR
174 0 0 if ($ltext =~ /^\s*_sec[^:]*:([^_]+)_/u and $rtext =~ /^\s*_sec[^:]*:([^_]+)_/u)
180 0 0 unless $$options{'noclean'}
181 0 0 unless $$options{'noclean'}
205 0 0 unless open my $fhL, '<', $fileL
206 0 0 unless open my $fhR, '<', $fileR
216 0 0 unless open $fout, '>', "$fileL.c$id"
225 0 0 unless open $fout, '>', "$fileR.c$id"
246 0 6 if (defined $dir) { }
249 0 6 unless open my $secsL, '>', "$dir$fL.secs"
250 0 6 unless open my $secsR, '>', "$dir$fR.secs"
251 0 6 if ($$options{'num'}) { }
269 33 190 if ($a[1] =~ /^\s*<$/u) { }
104 86 elsif ($a[1] =~ /^\s*>$/u) { }
31 55 elsif ($a[1] =~ /^\s*[|]$/u) { }
285 49 6 if ($$chunks[-1])
302 6 0 unless defined $$options{'dump'}
325 0 12 unless open my $fh, '<', $file
339 295 2 if ($subs =~ /.*\s+([^\n]{1,100})/gu) { }
378 0 6 if (defined $dir) { }
382 0 6 if $$options{'dump'}
402 0 6 if (defined $dir) { }
406 0 6 if $$options{'dump'}
414 0 0 unless -e $localrc
420 0 0 unless open my $fn, '>', $filename
427 0 0 if $a > $b
428 0 0 if $a == 0 and $b == 0
429 0 0 if $b == 0