Branch Coverage

blib/lib/Bio/Phylo/Matrices/Datatype.pm
Criterion Covered Total %
branch 44 126 34.9


line true false branch
57 787 50 if ($class eq 'Bio::Phylo::Matrices::Datatype') { }
59 0 787 unless ($type)
62 1 786 if ($type eq 'Nucleotide')
76 50 0 if ${"${class}::LOOKUP";}
78 50 0 if ${"${class}::MISSING";}
79 10 40 if ${"${class}::GAP";}
115 756 0 if (defined $lookup) { }
116 756 0 if (&looks_like_instance($lookup, 'HASH')) { }
148 109 0 if ($missing ne $self->get_gap) { }
174 69 0 if (not $gap eq $self->get_missing) { }
218 0 0 if (my $lookup = $self->get_lookup) { }
219 0 0 if (exists $lookup->{$state}) { }
221 0 0 unless $meta{$id}
222 0 0 unless $meta{$id}{$state}
253 0 0 if ($meta{$id} and $meta{$id}{$state}) { }
257 0 0 if ($meta_array->[$i]->get_id == $meta_id)
317 0 0 if ($_[0]) { }
348 0 0 if (my $lookup = $self->get_lookup)
362 0 0 $_[0] ? :
387 82250 0 if (my $lookup = $self->get_lookup)
388 82250 0 if (my $map = $$lookup{uc $symbol})
415 0 0 if ($lookup) { }
419 0 0 if (scalar @syms == scalar @states)
424 0 0 if ($syms[$i] eq $states[$j])
429 0 0 unless $seen
433 0 0 if $seen_all == scalar @syms
439 0 0 if (not $self->get_type =~ /standard/i) { }
447 0 0 unless (exists $lookup->{$char})
479 82476 654 if (exists $lookup{$id}) { }
486 654 0 if (&looks_like_class($class))
515 133 1510 defined $missing ? :
534 103 847 defined $gap ? :
553 0 0 if ($meta{$id} and $meta{$id}{$state})
601 50 15 if (my $lookup = $self->get_lookup)
603 39 11 if ($mapping and ref $mapping eq 'ARRAY')
629 0 1451 if (ref $arg eq 'ARRAY') { }
743 708 elsif (UNIVERSAL::can($arg, 'get_char')) { }
636 0 708 if (length $arg > 1) { }
645 739 712 unless @data
650 0 82978 unless defined $char
651 82970 8 if $symbols{uc $char}
675 85 34 if $self->get_id == $model->get_id
676 0 34 if $self->get_type ne $model->get_type
681 0 102 if defined $self_prop and defined $model_prop and $self_prop ne $model_prop
689 0 34 if ($s_lookup and not $m_lookup)
694 0 0 unless ($s_lookup or $m_lookup)
703 0 34 if (scalar @s_keys != scalar @m_keys)
709 0 448 if (not exists $m_lookup->{$key}) { }
721 0 448 if (scalar @m_vals != scalar @s_vals)
729 0 808 unless exists $m_vals{$val}
813 0 0 if (my $lookup = $self->get_lookup)
830 0 0 if (%{$special;})
866 0 0 exists $normalized->{$state} ? :
869 0 0 $polymorphism ? :
0 0 $unambiguous ? :
880 0 0 if ($unambiguous) { }
917 0 0 if (&looks_like_instance($dom, 'SCALAR') and $dom->_type == 18) { }
924 0 0 unless ($dom)
931 0 0 if (my $lookup = $self->get_lookup)
957 0 0 if (%{$special;})
989 0 0 exists $normalized->{$state} ? :
993 0 0 if (scalar @mapping > 1) { }
994 0 0 $polymorphism ? :