line |
true |
false |
branch |
96
|
0 |
6 |
if $width |
97
|
6 |
0 |
if (not defined $self->sequence_factory) |
120
|
2 |
17 |
unless my $entry = $self->_readline |
122
|
0 |
17 |
if ($entry eq '>') |
123
|
0 |
0 |
unless $entry = $self->_readline |
127
|
0 |
17 |
unless my($top, $sequence) = $entry =~ /^(.+?)\n([^>]*)/s |
129
|
0 |
17 |
unless my($id, $fulldesc) = $top =~ /^\s*(\S+)\s*(.*)/ |
177
|
0 |
0 |
unless my $entry = $self->_readline |
179
|
0 |
0 |
if ($entry eq '>') |
180
|
0 |
0 |
unless $entry = $self->_readline |
183
|
0 |
0 |
unless my($top, $sequence) = $entry =~ /^(.+?)\n([^>]*)/s |
185
|
0 |
0 |
unless my($id, $fulldesc) = $top =~ /^\s*(\S+)\s*(.*)/ |
190
|
0 |
0 |
if ($as_next_qual) |
215
|
0 |
12 |
if (defined $value) |
247
|
0 |
11 |
unless ($source and $source->isa('Bio::Seq::Quality') || $source->isa('Bio::Seq::PrimaryQual')) |
252
|
10 |
1 |
$source->can('id') && $source->id ? : |
|
1 |
11 |
$source->can('header') && $source->header ? : |
259
|
12 |
0 |
if $source->can('desc') |
265
|
12 |
0 |
if (not defined $oneline or $oneline == 0) { } |
268
|
12 |
223 |
if ($count + $width > $length) { } |
282
|
12 |
0 |
if $self->_flush_on_write and defined $self->_fh |