| line |
true |
false |
branch |
|
91
|
1 |
41 |
if $token->[0] eq 'UNKNOWN' |
|
117
|
8 |
45 |
if $target =~ /\G (\[[A-Za-z\.]+\]) /cgx |
|
119
|
6 |
39 |
if $target =~ /\G (\[\^[A-Za-z\.]+\]) /cgx |
|
121
|
19 |
20 |
if $target =~ /\G ([A-Za-z\.]+) /cgx |
|
123
|
4 |
16 |
if $target =~ /\G (\() /cgx |
|
125
|
4 |
12 |
if $target =~ /\G (\)[\{\d+[,\d+]*\}]*) /cgx |
|
127
|
1 |
11 |
if $target =~ /\G (.) /cgx |
|
160
|
0 |
300 |
if length $codon != 3 |
|
196
|
0 |
924 |
unless ($alphabet and $alphabet =~ /^dna$|^protein$/i and $letter and length $letter <= 4) |
|
201
|
2 |
922 |
unless (%convert) |
|
265
|
2 |
4 |
unless (@codon_library) |
|
268
|
2 |
4 |
unless ($ct) |
|
281
|
1788 |
1212 |
if (grep {uc $unwanted eq $_;} @codons) |
|
286
|
6 |
294 |
if ($success) |