Branch Coverage

Bio/Tools/IUPAC.pm
Criterion Covered Total %
branch 22 36 61.1


line true false branch
286 0 1 if (not defined $seq and @args and ref $args[0])
291 33 1 if (defined $seq)
292 0 33 unless ($seq->isa('Bio::PrimarySeqI'))
295 0 33 if (length $seq->seq == 0)
327 0 9 unless (exists $self->{'_string'})
332 32 13 unless $self->{'_string'}[$i] or @{$self->{'_alpha'}[$i];} > 1
333 5 8 if ($self->{'_string'}[$i] == $#{$$self{'_alpha'}[$i];}) { }
334 1 4 if ($i == $#{$$self{'_string'};}) { }
373 35 0 if ($alphabet eq 'dna' or $alphabet eq 'rna') { }
0 0 elsif ($alphabet eq 'protein') { }
400 34 0 if ($alphabet eq 'dna' or $alphabet eq 'rna') { }
0 0 elsif ($alphabet eq 'protein') { }
499 1 0 unless (exists $self->{'_string'})
534 0 285 unless (defined $iupacs)
539 276 9 if ($match_rna)
540 178 98 unless $part =~ s/T/TU/i
542 103 182 if (length $part > 1)
555 0 0 unless $method eq 'DESTROY'