Branch Coverage

blib/lib/Text/Statistics/GreekAndCoptic.pm
Criterion Covered Total %
branch 0 66 0.0


line true false branch
74 0 0 unless open our $result, '>', $nome4
75 0 0 unless open my $registro, '>', $nome5
91 0 0 unless open my $in, '<', $nome1
92 0 0 unless open my $out, '>', $nome2
98 0 0 unless $line
104 0 0 unless ($_ eq 's+' | $_ eq '0' | $_ eq $reg | $_ eq $reg2)
112 0 0 if ($tempo < 2)
122 0 0 unless open my $in2, '<', $nome2
123 0 0 unless open my $out2, '>', $nome3
132 0 0 unless $lista[$inicio]
135 0 0 if ($lista[$inicio] =~ /$pesquisa/i)
140 0 0 if ($controle < $ii)
165 0 0 if ($tempo == 3)
174 0 0 unless open my $in1, '<', $nome1
175 0 0 unless open my $in2, '<', $nome2
176 0 0 unless open my $out1, '>', $nome3
192 0 0 if ($linha2 =~ /.+,.+,$linha1/i)
219 0 0 unless open my $incf, '<', $nome2
222 0 0 unless open my $indf, '<', $nome2
225 0 0 unless open my $out, '>', $nome2
232 0 0 unless $lista1[$linha]
251 0 0 unless open my $incfdf, '<', $nome2
254 0 0 unless open my $intf, '<', $nome2
257 0 0 unless open my $outtot, '>', $nome2
265 0 0 unless $listatf[$linhatf]
268 0 0 unless $listadf[$linhadf]
272 0 0 if ($listatf[$linhatf] =~ /.+,.+,$listadf[$linhadf]/i)
293 0 0 unless open my $zincinco, '<', "1 ($znum).txt"
297 0 0 unless open my $zoutx, '>', "1 ($znum).txt"
299 0 0 unless open my $zregistro, '<', "registro1 ($znum).txt"
304 0 0 unless $zin1[$zinic]
311 0 0 unless $zin2[$zlinhac]
315 0 0 if ("$zin3[$zlinhac]\n" =~ /$zinicc\n/)