Branch Coverage

blib/lib/Bio/NEXUS/UnalignedBlock.pm
Criterion Covered Total %
branch 19 54 35.1


line true false branch
67 0 2 unless ($type)
72 2 0 if defined $commands and @$commands
105 0 0 if ($other)
133 0 4 if ($row =~ /^\s*$/)
136 0 4 if ($row =~ /^\s*[\"|\']([^\"\']+)[\"|\']\s*([^\[]*)(\[.*\]\s*)*/) { }
139 0 0 unless ($self->find_taxon($name))
149 4 0 if ($self->find_taxon($1)) { }
155 0 0 if $verbose
165 0 6 if ($$taxon{'name'} eq $name)
170 4 0 if ($newtaxon)
184 4 0 if ($1) { }
0 0 elsif ($2) { }
221 0 7 unless $self->get_taxlabels
0 7 if (@{[] unless $self->get_taxlabels;} == 0)
223 5 16 if (lc $taxon eq lc $name)
253 0 0 unless (shift())->{'format'}
345 0 1 if ($self->find_taxon($copy_otu_name)) { }
353 1 0 if (defined $$self{'otuset'}{'otus'})
357 4 0 if (defined $otu)
358 1 3 if ($otu->get_name eq $original_otu_name)
380 0 0 unless (Bio::NEXUS::Block::equals($self, $block))
427 0 0 if (scalar keys %formats)
429 0 0 if (defined $formats{'datatype'})
434 0 0 if (not $formats{$format} or $format =~ /datatype/i) { }
0 0 elsif ($formats{$format} eq '1') { }
474 0 1 if $Bio::NEXUS::UnalignedBlock::AUTOLOAD =~ /DESTROY$/
484 0 1 if (defined $synonym_for{$Bio::NEXUS::UnalignedBlock::AUTOLOAD}) { }