Condition Coverage

Bio/SeqIO/genbank.pm
Criterion Covered Total %
condition 74 111 66.6


and 3 conditions

line !l l&&!r l&&r condition
440 2 0 89 $gi and index($gi, 'GI:') == 0
769 6 0 105 $builder->want_slot('features') and defined $buffer
6 1 104 $builder->want_slot('features') and defined $buffer and $buffer =~ /^FEATURES/o
827 36 8141 103 $species and $feat->primary_tag eq 'source'
8177 2 101 $species and $feat->primary_tag eq 'source' and $feat->has_tag('db_xref')
8143 101 0 $species and $feat->primary_tag eq 'source' and $feat->has_tag('db_xref') and !$species->ncbi_taxid || $species->ncbi_taxid && $species->ncbi_taxid =~ /^list/
888 0 0 10 defined $buffer and substr($buffer, 0, 2) ne '//'
891 1 7 93 defined $buffer and $buffer =~ s/^ORIGIN\s+//
892 0 92 1 $annotation and length $buffer > 0
946 0 0 25 ref $seq and $seq->isa('Bio::SeqI')
955 2 0 23 $seq->can('division') and defined($div = $seq->division)
960 2 0 23 $seq->can('molecule') and defined($mol = $seq->molecule)
1010 2 23 0 $seq->isa('Bio::Seq::RichSeqI') and $seq->pid
1015 2 5 18 $seq->isa('Bio::Seq::RichSeqI') and defined $seq->seq_version
1023 0 0 18 defined $id && $id =~ /^\d+$/
1246 0 0 24 $self->_flush_on_write and defined $self->_fh
1265 0 0 430 ref $fth and $fth->isa('Bio::SeqIO::FTHelper')
1278 857 140 0 $tag eq 'db_xref' and grep /HASH/, @{$fth->field->{$tag};}
1559 0 202 101 $tag and not exists $source{$tag}
1565 106 6 102 $tag ne 'CLASSIFICATION' and $tag eq 'ORGANISM'
112 1 101 $tag ne 'CLASSIFICATION' and $tag eq 'ORGANISM' and $line =~ /(?
1620 0 96 5 $species and $species =~ /(.+)\s+((?:subsp\.|var\.).+)/
1629 0 0 101 defined $species || defined $genus and $unkn == 0

or 2 conditions

line l !l condition
676 3 1 $db || 'GenBank'
688 1 0 $db || 'GenBank'
963 1 1 $alpha || 'DNA'
1076 0 0 $node->ancestor || (last)
1558 303 0 $2 || ''
1782 16317 39490 $out->field->{$qualifier} ||= []

or 3 conditions

line l !l&&r !l&&!r condition
328 4 0 109 $params{'-molecule'} eq 'dna' or $params{'-molecule'} eq 'rna'
592 38 11 0 $dbsrc =~ /(\S+)\.(\d+)/ or $dbsrc =~ /(\S+)/
813 0 0 0 $buffer =~ /^\s{5,5}\S+/o or $buffer =~ /^\S+/o
827 95 0 6 !$species->ncbi_taxid || $species->ncbi_taxid && $species->ncbi_taxid =~ /^list/
1291 975 1 109 not $FTQUAL_NO_QUOTE{$tag} or length "/$tag=$value" >= $FTQUAL_LINE_LENGTH
1343 100 437 0 defined $line or defined($line = $self->_readline)
1553 101 416 0 defined $line or defined($line = $self->_readline)
1629 101 0 0 defined $species || defined $genus
1675 59852 8269 12191 @qual or index($2, '/') == 0
1729 12312 0 52083 not $value =~ /\"$/ or $value =~ tr/"// % 2