Branch Coverage

blib/lib/TIGR/FASTA/Record.pm
Criterion Covered Total %
branch 0 30 0.0


line true false branch
80 0 0 if (defined $header and $header =~ s/^($UNBOUND_FASTA_SEPARATOR){0,1}(.*)/$UNBOUND_FASTA_SEPARATOR$2/ and defined $data_rec and defined($identifier = &_headerToIdentifier($header)) and &isValidFASTAdata($data_rec) != 0)
117 0 0 if (defined $other_obj and $self->toString eq $other_obj->toString) { }
140 0 0 unless (&isValidFASTAheader($header))
232 0 0 if (defined $NA_strand and $validData = &_isNucleotideData($NA_strand) and $validData == 1) { }
237 0 0 if (not defined $NA_strand =~ tr/\-.A-DGHKMNR-Ya-dghkmnr-y/\-.TVGHCDMKNYSAABWXRtvghcdmknysaabwxr/) { }
0 0 elsif (not defined($rev_compl_str = reverse($NA_strand))) { }
248 0 0 defined $error_condition ? :
268 0 0 if (defined $NA_strand and $validData = &_isNucleotideData($NA_strand) and $validData == 1) { }
273 0 0 if (not defined $NA_strand =~ tr/\-.A-DGHKMNR-Ya-dghkmnr-y/\-.TVGHCDMKNYSAABWXRtvghcdmknysaabwxr/) { }
0 0 elsif (not defined($rev_compl_str = reverse($NA_strand))) { }
284 0 0 defined $error_condition ? :
312 0 0 if (defined $data_str and defined $startpos and defined $length and abs $startpos < $strlen and abs $length <= $strlen) { }
0 0 elsif (defined $data_str and defined $startpos and not defined $length and abs $startpos < $strlen) { }
343 0 0 if (defined $data_str and $data_str =~ /[-]+/) { }
0 0 elsif (not defined $data_str) { }