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 ? : |