| line |
true |
false |
branch |
|
23
|
1 |
80 |
unless (defined $_[0]) |
|
27
|
15 |
65 |
if (substr($_[0], 0, 1) eq '-') { } |
|
|
65 |
0 |
elsif (not defined $seq) { } |
|
31
|
15 |
38 |
if ($i =~ /^-(seq|sequence)/u) { } |
|
|
12 |
26 |
elsif ($i =~ /^-(name|id)/u) { } |
|
|
7 |
19 |
elsif ($i =~ /^-(comment|desc|description)/u) { } |
|
|
12 |
7 |
elsif ($i =~ /^-qual(ity)?/u) { } |
|
|
4 |
3 |
elsif ($i =~ /^-offset/u) { } |
|
|
2 |
1 |
elsif ($i =~ /^-line_len/u) { } |
|
|
0 |
1 |
elsif ($i =~ /^-default_quality/u) { } |
|
52
|
0 |
65 |
if scalar @_ < 1 or scalar @_ > 4 |
|
57
|
0 |
79 |
unless (defined $seq) |
|
62
|
2 |
77 |
if (defined $seq and defined $qual and length $seq != length $qual) |
|
98
|
5 |
88 |
if defined $new_val |
|
107
|
0 |
14 |
if defined $new_val |
|
116
|
0 |
56 |
if defined $new_val |
|
124
|
0 |
11 |
if defined $new_val |
|
132
|
0 |
29 |
if defined $new_val and not $new_val =~ /^\d+$/u |
|
133
|
1 |
28 |
if defined $new_val |
|
141
|
0 |
20 |
if defined $new_val and not $new_val =~ /^\d+$/u |
|
142
|
0 |
20 |
if defined $new_val |
|
150
|
0 |
10 |
if defined $new_val and length $new_val != 1 |
|
151
|
0 |
10 |
if defined $new_val |
|
170
|
2 |
0 |
if defined reverse($self->{'qual'}) |
|
180
|
0 |
1 |
if ($self->{'seq'} =~ /U/iu) { } |
|
195
|
4 |
3 |
if (defined $len) { } |
|
197
|
1 |
3 |
defined $self->{'qual'} ? : |
|
200
|
1 |
2 |
defined $self->{'qual'} ? : |
|
209
|
0 |
42 |
if length $quality_encoded != 1 |
|
210
|
42 |
0 |
defined $offset ? : |
|
217
|
0 |
2 |
unless $quality_integer =~ /^\d+$/u |
|
218
|
2 |
0 |
defined $offset ? : |
|
227
|
5 |
0 |
if (defined $self->{'qual'}) |
|
257
|
0 |
1 |
unless $qual_value =~ /^\d+$/u |
|
262
|
1 |
6 |
if ($qualities[$i] <= $qual_value) |
|
277
|
0 |
1 |
unless $qual_value =~ /^\d+$/u |
|
282
|
1 |
2 |
if ($qualities[$i] >= $qual_value) |
|
302
|
66 |
0 |
if (exists $baseVal{substr $kmer, $i, 1}) { } |
|
355
|
0 |
5 |
unless $self->{'seq'} =~ /^[ACGTU]+$/iu |
|
362
|
22 |
0 |
if ($num != -1) { } |
|
383
|
0 |
0 |
if (defined $self->{'qual'}) { } |
|
405
|
6 |
9 |
defined $self->{'comment'} && length $self->{'comment'} > 0 ? : |
|
415
|
15 |
10 |
if (defined $user_quality) { } |
|
|
6 |
4 |
elsif (not defined $quality) { } |
|
417
|
10 |
5 |
if (length $user_quality == 1) { } |
|
430
|
10 |
15 |
defined $self->{'comment'} && length $self->{'comment'} > 0 ? : |
|
455
|
6 |
7 |
defined $self->{'qual'} > 0 && length $self->{'qual'} == length $self->{'seq'} ? : |
|
462
|
4 |
3 |
defined $self->{'qual'} > 0 && length $self->{'qual'} == length $self->{'seq'} ? : |
|
468
|
10 |
5 |
if (not defined $width or $width == 0) |