| line |
true |
false |
branch |
|
131
|
0 |
1 |
if ($@) { } |
|
176
|
0 |
2 |
unless (defined $filename) |
|
182
|
1 |
1 |
if (defined $format) { } |
|
219
|
0 |
1 |
unless (defined $filename) |
|
225
|
1 |
0 |
if (defined $format) { } |
|
261
|
0 |
1 |
if (scalar @sequence_objects == 0) |
|
269
|
0 |
0 |
unless ($filename =~ /^\>/ or $filename =~ /^|/) |
|
278
|
0 |
1 |
if (not ref $seq) { } |
|
279
|
0 |
0 |
if (length $seq > 50) { } |
|
283
|
0 |
0 |
if ($error == 0) |
|
299
|
0 |
1 |
unless ($seq->isa('Bio::SeqI')) |
|
328
|
0 |
1 |
unless (defined $seq) |
|
336
|
1 |
0 |
if $accession |
|
365
|
0 |
0 |
unless (defined $verbose) |
|
369
|
0 |
0 |
if (not ref $seq) { } |
|
|
0 |
0 |
elsif (not $seq->isa('Bio::PrimarySeqI')) { } |
|
377
|
0 |
0 |
$seq->alphabet eq 'protein' ? : |
|
387
|
0 |
0 |
if ($verbose) |
|
398
|
0 |
0 |
if (not ref $rc) { } |
|
399
|
0 |
0 |
if ($rc < 0) |
|
402
|
0 |
0 |
if ($verbose) |
|
414
|
0 |
0 |
if ($verbose) |
|
439
|
0 |
0 |
unless ($filename =~ /^\>/ or $filename =~ /^|/) |
|
479
|
0 |
0 |
unless ($Bio::Perl::DBOKAY) |
|
489
|
0 |
0 |
if ($db_type =~ /genbank/) |
|
490
|
0 |
0 |
unless (defined $genbank_db) |
|
495
|
0 |
0 |
if ($db_type =~ /genpept/) |
|
496
|
0 |
0 |
unless (defined $genpept_db) |
|
502
|
0 |
0 |
if ($db_type =~ /swiss/) |
|
503
|
0 |
0 |
unless (defined $swiss_db) |
|
509
|
0 |
0 |
if ($db_type =~ /embl/) |
|
510
|
0 |
0 |
unless (defined $embl_db) |
|
516
|
0 |
0 |
if ($db_type =~ /refseq/ or not $db_type =~ /swiss/ and $identifier =~ /^\s*N\S+_/) |
|
518
|
0 |
0 |
unless (defined $refseq_db) |
|
526
|
0 |
0 |
if ($identifier =~ /^\w+\d+$/) { } |
|
554
|
2 |
2 |
if (ref $scalar) { } |
|
555
|
0 |
2 |
if (not $scalar->isa('Bio::PrimarySeqI')) { } |
|
563
|
0 |
2 |
if ($n < length($scalar) * 0.85) |
|
613
|
0 |
0 |
if (ref $scalar) { } |
|
614
|
0 |
0 |
if (not $scalar->isa('Bio::PrimarySeqI')) { } |
|
625
|
0 |
0 |
if ($n < length($scalar) * 0.85) |