Branch Coverage

blib/lib/Bio/Phylo/Listable.pm
Criterion Covered Total %
branch 31 64 48.4


line true false branch
62 10513 13 if (@obj and $self->can_contain(@obj)) { }
66 10126 82991 if ref $_ and UNIVERSAL::can($_, '_set_container')
69 9543 970 if $listeners{$id} and @{$listeners{$id};}
93 9831 0 if (defined $obj and $self->can_contain($obj)) { }
96 9817 14 if (&looks_like_implementor($obj, '_set_container'))
100 0 9831 if $listeners{$id} and @{$listeners{$id};}
136 653 0 if ($self->can_contain($obj)) { }
139 0 653 if (my $i = $index{$id})
141 0 0 if ($entities{$id}[$j]->get_id == $object_id)
156 274 379 if $listeners{$id} and @{$listeners{$id};}
179 75 670 if $listeners{$id} and @{$listeners{$id};}
297 0 0 unless (defined $index{$id})
320 0 0 if (not defined $index{$id}) { }
0 0 elsif ($index{$id} + 1 <= $#{$entities{$id};}) { }
352 0 0 if (not $index{$id}) { }
0 0 elsif (1 <= $index{$id}) { }
378 0 0 unless $index{${$_[0];}}
428 962 0 unless ($listeners{$id})
431 962 0 if (&looks_like_instance($listener, 'CODE')) { }
462 9918 30 if ($listeners{$id})
519 4 0 unless $sets{$id}
540 56 0 if ($sets)
562 0 0 unless $sets{$id}
582 35 25 unless $sets{$id}
606 22 0 if (&looks_like_object($set, 26) and $sets{$self->get_id}{$set->get_id}) { }
608 22 0 if (defined $i) { }
609 14 8 $set->get_by_index($i) ? :
638 0 14 unless $sets{$id}
640 14 0 if (defined $i) { }
643 0 14 unless (exists $sets{$id}{$set_id})
675 0 0 unless $sets{$id}
677 0 0 if (defined $i) { }