Branch Coverage

blib/lib/Lingua/PT/PLNbase.pm
Criterion Covered Total %
branch 2 100 2.0


line true false branch
98 1 6 if ($conf{'abbrev'} and -f $conf{'abbrev'}) { }
125 0 0 if (ref $_[0] eq 'HASH')
135 0 0 if ($$conf{'keep_quotes'}) { }
147 0 0 if ($$conf{'keep_quotes'}) { }
249 0 0 if (ref $text eq 'HASH')
257 0 0 if (wantarray) { }
260 0 0 unless $$conf{'rs'} eq "\n"
269 0 0 if (ref $_[0] eq 'HASH')
276 0 0 if $opt{'enc'}
277 0 0 if $opt{'outenc'}
279 0 0 if (/<(\w+)(.*?)>/l)
281 0 0 if ($b =~ /=/l) { }
330 0 0 if (ref $_[0] eq 'HASH')
350 0 0 if (@r and $r[-1] =~ /^\s*$/ls)
464 0 0 if ref $_[0] eq 'HASH'
468 0 0 unless @files
471 0 0 unless (ref $opts{'output'})
472 0 0 unless open OUT, ">$opts{'output'}"
478 0 0 if (ref $file) { }
481 0 0 unless open $fh, $file
500 0 0 unless (ref $file)
507 0 0 if (not ref $opts{'output'})
518 0 0 if ($$opts{'tokenize'}) { }
519 0 0 if ($$opts{'tokenize'} eq 'cqp') { }
536 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'t_tag'})
538 0 0 if ($$opts{'t_num'} eq 0) { }
0 0 elsif ($$opts{'t_num'} eq 'f') { }
553 0 0 if $$opts{'o_format'} eq 'NATools'
559 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'t_tag'})
563 0 0 if $$opts{'o_format'} eq 'NATools'
569 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'p_tag'})
571 0 0 if ($$opts{'p_num'} == 0) { }
0 0 elsif ($$opts{'p_num'} == 1) { }
584 0 0 if $$opts{'o_format'} eq 'NATools'
590 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'p_tag'})
594 0 0 if $$opts{'o_format'} eq 'NATools'
601 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'s_tag'})
603 0 0 if ($$opts{'s_num'} == 0) { }
0 0 elsif ($$opts{'s_num'} == 1) { }
0 0 elsif ($$opts{'s_num'} == 2) { }
619 0 0 if $$opts{'o_format'} eq 'NATools'
625 0 0 if ($$opts{'o_format'} eq 'XML' and $$opts{'s_tag'})
629 0 0 if $$opts{'o_format'} eq 'NATools'
654 0 0 if ($word =~ /[çáéíóúàèìòùãõâêîôûäëïöüñ]/il) { }
768 0 0 unless ($exp_com_barras =~ m[[a-z]+a/o$]l or $exp_com_barras =~ m[[a-z]+o/a$]l or $exp_com_barras =~ m[[a-z]+r/a$]l)
787 0 0 if (wantarray) { }
1164 0 0 if ($par =~ /[A-Za-záéíóúêãÁÉÍÓÚÀ0-9\),-][\»\"\'´>]*\s*\)*\s*$/l)
1179 0 0 if ($#sentences > 0 and not $fragmento)
1189 0 0 if ($frase =~ /[.?!:;][\»"'´]*\s*$/l or $frase =~ /[.?!] *\)[\»"'´]*$/l) { }
0 0 elsif ($fragmento and $num_frase_no_paragrafo == $#sentences) { }