Branch Coverage

blib/lib/Lingua/PT/PLNbase.pm
Criterion Covered Total %
branch 44 106 41.5


line true false branch
118 1 6 if ($conf{'abbrev'} and -f $conf{'abbrev'}) { }
146 39 0 if (ref $_[0] eq "HASH")
156 0 39 if ($conf->{'keep_quotes'}) { }
168 0 39 if ($conf->{'keep_quotes'}) { }
270 0 39 if (ref $text eq "HASH")
275 0 39 unless defined $text
280 14 25 if (wantarray) { }
283 0 25 unless $conf->{'rs'} eq "\n"
292 0 0 if (ref $_[0] eq "HASH")
299 0 0 if $opt{'enc'}
300 0 0 if $opt{'outenc'}
303 0 0 if (/<(\w+)(.*?)>/)
305 0 0 if ($b =~ /=/) { }
354 0 0 if (ref $_[0] eq "HASH")
386 84 0 if ($x =~ /\S/) { }
492 4 0 if ref $_[0] eq "HASH"
496 0 4 unless @files
499 4 0 unless (ref $opts{'output'})
500 0 4 unless open OUT, ">$opts{'output'}"
506 0 4 if (ref $file) { }
509 0 4 if ($opts{'enc'}) { }
510 0 0 unless open $fh, "<$opts{'enc'}", $file
512 0 4 unless open $fh, $file
532 4 0 unless (ref $file)
539 4 0 if (not ref $opts{'output'})
550 14 42 if ($opts->{'tokenize'}) { }
551 0 14 if ($opts->{'tokenize'} eq 'cqp') { }
568 2 0 if ($opts->{'o_format'} eq "XML" and $opts->{'t_tag'})
570 0 2 if ($opts->{'t_num'} eq 0) { }
2 0 elsif ($opts->{'t_num'} eq 'f') { }
585 2 0 if $opts->{'o_format'} eq "NATools"
591 2 0 if ($opts->{'o_format'} eq "XML" and $opts->{'t_tag'})
595 2 0 if $opts->{'o_format'} eq "NATools"
601 6 0 if ($opts->{'o_format'} eq "XML" and $opts->{'p_tag'})
603 0 6 if ($opts->{'p_num'} == 0) { }
6 0 elsif ($opts->{'p_num'} == 1) { }
616 6 0 if $opts->{'o_format'} eq "NATools"
622 6 0 if ($opts->{'o_format'} eq "XML" and $opts->{'p_tag'})
626 6 0 if $opts->{'o_format'} eq "NATools"
633 28 0 if ($opts->{'o_format'} eq "XML" and $opts->{'s_tag'})
635 0 28 if ($opts->{'s_num'} == 0) { }
28 0 elsif ($opts->{'s_num'} == 1) { }
0 0 elsif ($opts->{'s_num'} == 2) { }
651 28 0 if $opts->{'o_format'} eq "NATools"
657 28 0 if ($opts->{'o_format'} eq "XML" and $opts->{'s_tag'})
661 28 0 if $opts->{'o_format'} eq "NATools"
686 20 10 if ($word =~ /[\347\341\351\355\363\372\340\350\354\362\371\343\365\342\352\356\364\373\344\353\357\366\374\361]/i) { }
801 0 0 unless ($exp_com_barras =~ m[[a-z]+a/o$]u or $exp_com_barras =~ m[[a-z]+o/a$]u or $exp_com_barras =~ m[[a-z]+r/a$]u)
820 0 9 if (wantarray) { }
1199 0 0 if ($par =~ /[A-Za-z\341\351\355\363\372\352\343\301\311\315\323\332\3000-9\),-][\\273\"\'\264>]*\s*\)*\s*$/u)
1214 0 0 if ($#sentences > 0 and not $fragmento)
1224 0 0 if ($frase =~ /[.?!:;][\\273"'\264]*\s*$/u or $frase =~ /[.?!] *\)[\\273"'\264]*$/u) { }
0 0 elsif ($fragmento and $num_frase_no_paragrafo == $#sentences) { }