| line |
true |
false |
branch |
|
95
|
1 |
0 |
unless (defined $self->sequence_factory) |
|
119
|
1 |
0 |
unless $self->{'_seendata'}{'_seqs'} |
|
|
0 |
1 |
if (@{[] unless $self->{'_seendata'}{'_seqs'};} or eof $self->_fh) |
|
156
|
1 |
59 |
if ($name eq 'GBSET') { } |
|
|
1 |
58 |
elsif ($name eq 'GBSEQ') { } |
|
|
1 |
57 |
elsif ($name eq 'GBFEATURE') { } |
|
203
|
1 |
59 |
if ($name eq 'GBSEQ_LOCUS') { } |
|
|
1 |
58 |
elsif ($name eq 'GBSEQ_LENGTH') { } |
|
|
1 |
57 |
elsif ($name eq 'GBSEQ_MOLTYPE') { } |
|
|
1 |
56 |
elsif ($name eq 'GBSEQ_TOPOLOGY') { } |
|
|
1 |
55 |
elsif ($name eq 'GBSEQ_DIVISION') { } |
|
|
2 |
53 |
elsif ($name =~ /GBSEQ_UPDATE-DATE|GBSEQ_CREATE-DATE/) { } |
|
|
1 |
52 |
elsif ($name eq 'GBSEQ_DEFINITION') { } |
|
|
1 |
51 |
elsif ($name eq 'GBSEQ_PRIMARY-ACCESSION') { } |
|
|
1 |
50 |
elsif ($name eq 'GBSEQ_ACCESSION-VERSION') { } |
|
|
3 |
47 |
elsif ($name eq 'GBSEQID') { } |
|
|
1 |
46 |
elsif ($name eq 'GBSEQ_SOURCE') { } |
|
|
1 |
45 |
elsif ($name eq 'GBSEQ_ORGANISM') { } |
|
|
1 |
44 |
elsif ($name eq 'GBSEQ_TAXONOMY') { } |
|
|
1 |
43 |
elsif ($name eq 'GBSEQ_COMMENT') { } |
|
|
1 |
42 |
elsif ($name eq 'GBFEATURE_KEY') { } |
|
|
1 |
41 |
elsif ($name eq 'GBFEATURE_LOCATION') { } |
|
|
6 |
35 |
elsif ($name eq 'GBQUALIFIER_NAME') { } |
|
|
6 |
29 |
elsif ($name eq 'GBQUALIFIER_VALUE') { } |
|
|
1 |
28 |
elsif ($name eq 'GBSEQ_SEQUENCE') { } |
|
|
1 |
27 |
elsif ($name eq 'GBFEATURE') { } |
|
210
|
1 |
0 |
if ($self->{'_characters'} =~ /mRNA|dna/) { } |
|
218
|
1 |
0 |
$self->{'_characters'} =~ /^linear$/i ? : |
|
226
|
2 |
0 |
if ($date =~ s/\s*((\d{1,2})-(\w{3})-(\d{2,4})).*/$1/) |
|
227
|
0 |
2 |
if (length $date < 11) |
|
230
|
0 |
0 |
if length $d == 1 |
|
232
|
0 |
0 |
if (length $y == 2) |
|
234
|
0 |
0 |
$y > 60 ? : |
|
251
|
1 |
0 |
if ($1) |
|
257
|
1 |
2 |
if ($self->{'_characters'} =~ /gi\|(\d+)/) |
|
270
|
0 |
1 |
if (grep {$_ =~ /^$spflds[0]/i;} @organell_names) |
|
274
|
1 |
0 |
if @spflds |
|
275
|
0 |
1 |
if @spflds |
|
284
|
0 |
1 |
unless $self->{'_taxa'}{'_genus'} and not $self->{'_taxa'}{'_genus'} =~ /^(unknown|None)$/io |
|
285
|
0 |
1 |
if ($class[0] eq 'Viruses') { } |
|
|
1 |
0 |
elsif ($class[$#class] eq $self->{'_taxa'}{'_genus'}) { } |
|
297
|
1 |
0 |
if $self->{'_taxa'}{'_common'} |
|
298
|
1 |
0 |
unless ($class[-1] eq 'Viruses') |
|
299
|
0 |
1 |
if $self->{'_taxa'}{'_sub_species'} |
|
301
|
0 |
1 |
if $self->{'_taxa'}{'_organelle'} |
|
306
|
1 |
0 |
if $self->{'_characters'} |
|
330
|
0 |
1 |
if (not defined $curfeat) { } |
|
334
|
1 |
0 |
if ($curseq->species and $feat->primary_tag eq 'source' and $feat->has_tag('db_xref') and not $curseq->species->ncbi_taxid) |
|
337
|
1 |
0 |
if (index($tagval, 'taxon:') == 0) |
|
357
|
0 |
122 |
if (not @{$self->{'_state'};}) { } |