| line |
true |
false |
branch |
|
66
|
1 |
43 |
unless (grep /^$input$/u, @valid_new_attributes) |
|
73
|
0 |
32 |
unless (defined $self->{'filename'}) |
|
77
|
1 |
31 |
unless (-e $self->{'filename'}) |
|
84
|
0 |
31 |
unless $abif->open_abif($self->{'filename'}) |
|
88
|
0 |
31 |
unless ($try) |
|
100
|
25 |
6 |
unless defined $object->{'trim_ends'} |
|
101
|
31 |
0 |
unless defined $object->{'wnd'} |
|
102
|
28 |
3 |
unless defined $object->{'min_qual'} |
|
103
|
31 |
0 |
unless defined $object->{'bad_bases'} |
|
104
|
29 |
2 |
unless defined $object->{'keep_abi'} |
|
110
|
30 |
1 |
if ($self->{'keep_abi'} == 0) |
|
118
|
0 |
682 |
unless (grep /^$input$/u, @valid_new_attributes, @valid_obj_attributes) |
|
131
|
0 |
12 |
if (not defined $name) { } |
|
|
0 |
12 |
elsif ($name =~ /\s+/u) { } |
|
138
|
9 |
3 |
if (defined $quality_value) |
|
139
|
3 |
6 |
if ($quality_value =~ /^\d+$/u and $quality_value >= 10) { } |
|
|
3 |
3 |
elsif (length $quality_value == 1) { } |
|
140
|
3 |
0 |
$quality_value <= 93 ? : |
|
150
|
6 |
3 |
if ($self->{'iso_seq'}) { } |
|
186
|
25224 |
0 |
$_ <= 93 ? : |
|
198
|
28 |
3 |
if ($self->{'trim_ends'}) |
|
219
|
28 |
0 |
if ($begin_pos > 0 and $end_pos > 0) { } |
|
229
|
21 |
10 |
if (not $self->{'sequence'} =~ /[ACGT][RYMKWS]+[ACGT]/iu) { } |
|
245
|
29 |
19954 |
if ($iupac{$s0}) { } |
|
260
|
21 |
10 |
if ($seq1 eq $seq2) { } |