| line |
true |
false |
branch |
|
148
|
1 |
23 |
if (not defined $id) { }
|
|
|
21 |
2 |
elsif ($id_set->contains($id)) { }
|
|
205
|
4032 |
12096 |
if substr($cod, $i, 1) eq $nuc
|
|
208
|
2888 |
9208 |
if ($codon2aa->{$test} eq $aa)
|
|
211
|
558 |
11538 |
if ($codon2aa->{$test} eq '*')
|
|
248
|
96768 |
30240 |
if (substr($cod1, $pos, 1) ne substr($cod2, $pos, 1))
|
|
252
|
36288 |
6048 |
if $diff_cnt != 1
|
|
255
|
1444 |
4604 |
if ($codon2aa->{$cod1} eq $codon2aa->{$cod2}) { }
|
|
|
478 |
4126 |
elsif ($codon2aa->{$cod1} eq '*' or $codon2aa->{$cod2} eq '*') { }
|
|
291
|
2 |
19 |
if ($cod1 =~ /\-/ or $cod2 =~ /\-/)
|
|
297
|
2 |
35 |
unless (exists $codon2aa->{$_})
|
|
304
|
12 |
5 |
if (defined $pos)
|
|
305
|
2 |
10 |
if (&List::MoreUtils::PP::none(sub {
$_ == $pos;
}
, 0..2))
|
|
325
|
0 |
15 |
if ($diff_cnt == 0) { }
|
|
|
6 |
9 |
elsif ($diff_cnt == 1) { }
|
|
|
5 |
4 |
elsif ($diff_cnt == 2) { }
|
|
|
4 |
0 |
elsif ($diff_cnt == 3) { }
|
|
328
|
4 |
2 |
if (not defined $pos or $codon_pos == $pos)
|
|
345
|
0 |
20 |
if ($codon2aa->{$altered} eq '*') { }
|
|
350
|
12 |
8 |
if (not defined $pos or $mut_i == $pos)
|
|
361
|
5 |
0 |
if ($pathway != 0)
|
|
378
|
8 |
56 |
if ($codon2aa->{$altered} eq '*') { }
|
|
383
|
28 |
28 |
if (not defined $pos or $mut_i == $pos)
|
|
397
|
4 |
0 |
if ($pathway != 0)
|
|
422
|
2 |
15 |
if (length $cod1 != 3 or length $cod2 != 3)
|
|
429
|
28 |
17 |
if (substr($cod1, $_, 1) ne substr($cod2, $_, 1)) { }
|
|
438
|
6 |
9 |
if ($cnt == 1) { }
|
|
|
5 |
4 |
elsif ($cnt == 2) { }
|
|
454
|
1 |
2 |
if (defined $frame) { }
|
|
455
|
1 |
0 |
if (&List::MoreUtils::PP::none(sub {
$_ == $frame;
}
, 0..2))
|
|
463
|
0 |
2 |
if ($frame != 0)
|
|
474
|
23 |
0 |
if (exists $codon2aa->{$triplet}) { }
|
|
494
|
2 |
1 |
if (exists $codon_idx->{$cod}) { }
|
|
496
|
1 |
1 |
$aa eq 'M' ? :
|
|
513
|
3 |
3 |
if (exists $codon_idx->{$cod}) { }
|
|
515
|
2 |
1 |
$aa eq '*' ? :
|
|
569
|
1 |
0 |
if ($three_of->{$aa_code}) { }
|
|
591
|
1 |
0 |
if ($one_of->{$aa_code}) { }
|