| line |
true |
false |
branch |
|
92
|
5 |
0 |
if (not defined $self->sequence_factory) |
|
112
|
1 |
9 |
unless my $line = $self->_readline |
|
113
|
0 |
9 |
if ($line eq '>') |
|
114
|
0 |
0 |
unless $line = $self->_readline |
|
116
|
0 |
9 |
unless my($top, $desc, $seq) = $line =~ /^(.+?)\n(.+?)\n([^>]*)/s |
|
120
|
9 |
0 |
if ($top =~ /^>?(\S{2});(\S+)\s*$/) { } |
|
122
|
0 |
9 |
unless (exists $VALID_TYPE{$type}) |
|
162
|
0 |
1 |
unless defined $seq and ref $seq and $seq->isa('Bio::PrimarySeqI') |
|
165
|
0 |
1 |
if $seq->display_id =~ /\s/ |
|
169
|
0 |
1 |
unless $self->_print('>P1;' . $seq->id, "\n", $seq->desc, "\n", $str, "*\n") |
|
174
|
1 |
0 |
if $self->_flush_on_write and defined $self->_fh |