Branch Coverage

blib/lib/FASTAid.pm
Criterion Covered Total %
branch 20 26 76.9


line true false branch
142 0 5 unless open DB, $fasta
147 7 15 if (/^>(\S+)/)
150 1 6 if (defined $data{$id}) { }
159 1 3 if scalar keys %data == 0
162 0 3 unless open OUT, ">$index"
185 1 3 if scalar @ids == 0
193 0 3 unless open INDEX, $index
196 5 0 if ($_ =~ /^(\S+)\s+(\S+)$/)
204 0 3 unless open DB, "$fasta"
215 1 6 if $IND1[$try] lt $id
216 1 5 if $IND1[$try] gt $id
225 5 0 if ($trans_try >= 0 and $IND1[$try] eq $id) { }
233 2 12 if $_ =~ /^>/