Branch Coverage

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


line true false branch
58 787 50 if ($class eq 'Bio::Phylo::Matrices::Datatype') { }
60 0 787 unless ($type)
63 1 786 if ($type eq 'Nucleotide')
77 50 0 if ${"${class}::LOOKUP";}
79 50 0 if ${"${class}::MISSING";}
80 10 40 if ${"${class}::GAP";}
116 756 0 if (defined $lookup) { }
117 756 0 if (&looks_like_instance($lookup, 'HASH')) { }
149 109 0 if ($missing ne $self->get_gap) { }
175 69 0 if (not $gap eq $self->get_missing) { }
219 0 0 if (my $lookup = $self->get_lookup) { }
220 0 0 if (exists $lookup->{$state}) { }
222 0 0 unless $meta{$id}
223 0 0 unless $meta{$id}{$state}
254 0 0 if ($meta{$id} and $meta{$id}{$state}) { }
258 0 0 if ($meta_array->[$i]->get_id == $meta_id)
318 0 0 if ($_[0]) { }
349 0 0 if (my $lookup = $self->get_lookup)
363 0 0 $_[0] ? :
388 82250 0 if (my $lookup = $self->get_lookup)
389 82250 0 if (my $map = $$lookup{uc $symbol})
416 0 0 if ($lookup) { }
420 0 0 if (scalar @syms == scalar @states)
425 0 0 if ($syms[$i] eq $states[$j])
430 0 0 unless $seen
434 0 0 if $seen_all == scalar @syms
440 0 0 if (not $self->get_type =~ /standard/i) { }
448 0 0 unless (exists $lookup->{$char})
480 82476 654 if (exists $lookup{$id}) { }
487 654 0 if (&looks_like_class($class))
516 137 1506 defined $missing ? :
535 99 851 defined $gap ? :
554 0 0 if ($meta{$id} and $meta{$id}{$state})
602 50 15 if (my $lookup = $self->get_lookup)
604 39 11 if ($mapping and ref $mapping eq 'ARRAY')
630 0 1451 if (ref $arg eq 'ARRAY') { }
743 708 elsif (UNIVERSAL::can($arg, 'get_char')) { }
637 0 708 if (length $arg > 1) { }
646 739 712 unless @data
651 0 82978 unless defined $char
652 82970 8 if $symbols{uc $char}
676 85 34 if $self->get_id == $model->get_id
677 0 34 if $self->get_type ne $model->get_type
682 0 102 if defined $self_prop and defined $model_prop and $self_prop ne $model_prop
690 0 34 if ($s_lookup and not $m_lookup)
695 0 0 unless ($s_lookup or $m_lookup)
704 0 34 if (scalar @s_keys != scalar @m_keys)
710 0 448 if (not exists $m_lookup->{$key}) { }
722 0 448 if (scalar @m_vals != scalar @s_vals)
730 0 808 unless exists $m_vals{$val}
814 0 0 if (my $lookup = $self->get_lookup)
831 0 0 if (%{$special;})
867 0 0 exists $normalized->{$state} ? :
870 0 0 $polymorphism ? :
0 0 $unambiguous ? :
881 0 0 if ($unambiguous) { }
918 0 0 if (&looks_like_instance($dom, 'SCALAR') and $dom->_type == 18) { }
925 0 0 unless ($dom)
932 0 0 if (my $lookup = $self->get_lookup)
958 0 0 if (%{$special;})
990 0 0 exists $normalized->{$state} ? :
994 0 0 if (scalar @mapping > 1) { }
995 0 0 $polymorphism ? :