Branch Coverage

blib/lib/Text/Amuse/Preprocessor.pm
Criterion Covered Total %
branch 59 80 73.7


line true false branch
187 522 308 if (exists $options{$k})
194 0 83 if %options
195 0 83 unless defined $self->{'input'}
196 0 83 unless defined $self->{'output'}
259 83 169 if ($arg)
260 0 83 if $self->{'_infile'}
282 1 82 if $debug
284 0 83 unless -f $infile
286 0 83 if ($self->html)
298 55 28 if ($lang and $fixtypo)
305 14 69 if ($lang and $self->fix_nbsp)
316 1725 3726 if $piece->{'type'} ne "text"
334 226 3500 if ($remove_nbsp)
338 2152 1574 if ($fixtypo)
341 2030 1696 if ($fixlinks)
344 2148 1578 if ($filter)
347 226 3500 if ($specific_filter)
350 172 3554 if ($nbsp_filter)
353 87 3639 if ($show_nbsp)
361 24 59 if ($self->fix_footnotes)
367 19 5 if ($fnfixer->process) { }
379 39 39 if (my $ref = ref $output) { }
380 39 0 if ($ref eq 'SCALAR') { }
388 0 39 unless File::Copy::move($outfile, $output)
404 0 113 unless $file and $body
405 0 113 unless open my $fh, ">:encoding(UTF-8)", $file
407 0 113 unless close $fh
413 0 210 unless $file
414 0 210 unless open my $fh, "<:encoding(UTF-8)", $file
427 40 43 if (my $ref = ref $input) { }
428 40 0 if ($ref eq 'SCALAR') { }
429 0 40 unless open my $fh, ">:encoding(UTF-8)", $infile
431 0 40 unless close $fh
439 0 43 unless File::Copy::copy($input, $infile)
456 0 2 unless defined $text
474 5 0 if $error
485 83 190 unless ($self->{'_tmpdir'})
495 0 83 unless $infile and -f $infile
500 58 25 if ($info and $info->{'lang'})
501 58 0 if ($info->{'lang'} =~ /^\s*([a-z]{2,3})\s*$/s)