| line |
true |
false |
branch |
|
90
|
6 |
0 |
if (not defined $self->sequence_factory) |
|
110
|
1 |
12 |
unless my $line = $self->_readline |
|
111
|
0 |
12 |
if ($line eq '>') |
|
112
|
0 |
0 |
unless $line = $self->_readline |
|
114
|
0 |
12 |
unless my($top, $desc, $seq) = $line =~ /^(.+?)\n(.*?)\n([^>]*)/s |
|
118
|
12 |
0 |
if ($top =~ /^>?(\S{2});(\S+)\s*$/) { } |
|
120
|
0 |
12 |
unless (exists $VALID_TYPE{$type}) |
|
163
|
0 |
1 |
unless defined $seq and ref $seq and $seq->isa('Bio::PrimarySeqI') |
|
166
|
0 |
1 |
if $seq->display_id =~ /\s/ |
|
170
|
0 |
1 |
unless $self->_print('>P1;' . $seq->id, "\n", $seq->desc, "\n", $str, "*\n") |
|
175
|
1 |
0 |
if $self->_flush_on_write and defined $self->_fh |