|  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)  |