Branch Coverage

blib/lib/Bio/GeneDesign/Codons.pm
Criterion Covered Total %
branch 39 74 52.7


line true false branch
71 0 0 unless opendir my $CODDIR, $path
76 0 0 if ($table =~ /\.rscu\Z/x) { }
0 0 elsif ($table =~ /\.ct\Z/x) { }
96 0 14 unless open my $CFILE, '<', $path
103 896 0 if ($line =~ /$CODLINE/) { }
115 0 896 unless exists $$cods{$codon}
136 147 301 unless exists $$revcodon_t{$aa}
152 0 15 if $nucseq =~ /$Bio::GeneDesign::Codons::ambnt/
154 3 12 if $frame < 0
159 1223 4 if exists $$codon_t{$codon}
219 0 502 unless $newseqs{$a}[0] <=> $newseqs{$b}[0]
223 2 0 unless ($newseq =~ /$pattern/ or _complement($newseq, 1) =~ /$pattern/)
300 64 0 $x_j > 0 ? :
396 0 37 unless exists $ambtransswits{$swit}
397 8 29 if ($swit eq 's' or $swit eq 't') { }
400 1 7 if $swit eq 's'
412 4 25 if $swit < 0
413 29 0 if abs $swit < 4
420 0 67 unless ($swit)
424 29 38 if ($gothrough == 0) { }
455 0 88 if not $codon or length $codon != 3
457 25 63 if (exists $$memo{$codon}) { }
0 63 elsif ($codon eq 'NNN') { }
541 0 0 if ($aa ne '*') { }
569 0 0 if ($i >= $score_threshold)
574 0 0 if ($min_score > $scoresum)
616 6 0 $rounds <= $diff ? :
634 1 5 if $rounds % 3 == 0
637 0 3 if $check ne $peptide
668 1 2 if ($curcod =~ /$ctregx/) { }
678 2 6 if $potcod =~ /$ctregx/ or $curtar =~ _regres($potcod)
679 2 6 if ($flag != 0)
690 1 0 length $copy == length $oldpatt ? :
702 0 0 $oldaa eq '*' ? :
0 0 $newaa eq '*' ? :
0 0 $oldaa eq '*' ? :
0 0 $oldaa eq $newaa ? :