Branch Coverage

blib/lib/Bio/GeneDesign/Codons.pm
Criterion Covered Total %
branch 38 74 51.3


line true false branch
72 0 0 unless opendir my $CODDIR, $path
77 0 0 if ($table =~ /\.rscu\Z/x) { }
0 0 elsif ($table =~ /\.ct\Z/x) { }
104 896 0 if ($line =~ /$CODLINE/) { }
117 0 896 unless exists $cods->{$codon}
137 147 301 unless exists $revcodon_t->{$aa}
153 3 12 if $frame < 0
161 1223 0 if (exists $codon_t->{$codon}) { }
229 0 795 unless $newseqs{$a}[0] <=> $newseqs{$b}[0]
236 0 6 if $newseq =~ /$regex/
237 0 6 if $qeswen =~ /$regex/
239 3 0 if ($matchflag == 0)
315 64 0 $x_j > 0 ? :
411 0 37 unless exists $ambtransswits{$swit}
412 8 29 if ($swit eq 's' or $swit eq 't') { }
415 1 7 if $swit eq 's'
427 4 25 if $swit < 0
428 29 0 if abs $swit < 4
435 0 67 unless ($swit)
439 29 38 if ($gothrough == 0) { }
470 0 88 if not $codon or length $codon != 3
472 25 63 if (exists $memo->{$codon}) { }
0 63 elsif ($codon eq 'NNN') { }
556 0 0 if ($aa ne '*') { }
584 0 0 if ($i >= $score_threshold)
589 0 0 if ($min_score > $scoresum)
631 6 0 $rounds <= $diff ? :
649 1 5 if $rounds % 3 == 0
652 0 3 if $check ne $peptide
683 1 2 if ($curcod =~ /$ctregx/) { }
693 2 4 if $potcod =~ /$ctregx/ or $curtar =~ _regres($potcod)
694 2 4 if ($flag != 0)
705 1 0 length $copy == length $oldpatt ? :
717 0 0 $oldaa eq '*' ? :
0 0 $newaa eq '*' ? :
0 0 $oldaa eq '*' ? :
0 0 $oldaa eq $newaa ? :