Branch Coverage

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


line true false branch
61 9193 13 if (@obj and $self->can_contain(@obj)) { }
65 8804 82991 if ref $_ and UNIVERSAL::can($_, '_set_container')
68 8223 970 if $listeners{$id} and @{$listeners{$id};}
92 8529 0 if (defined $obj and $self->can_contain($obj)) { }
95 8515 14 if (&looks_like_implementor($obj, '_set_container'))
99 0 8529 if $listeners{$id} and @{$listeners{$id};}
135 652 0 if ($self->can_contain($obj)) { }
138 0 652 if (my $i = $index{$id})
140 0 0 if ($entities{$id}[$j]->get_id == $object_id)
155 267 385 if $listeners{$id} and @{$listeners{$id};}
178 75 670 if $listeners{$id} and @{$listeners{$id};}
296 0 0 unless (defined $index{$id})
319 0 0 if (not defined $index{$id}) { }
0 0 elsif ($index{$id} + 1 <= $#{$entities{$id};}) { }
351 0 0 if (not $index{$id}) { }
0 0 elsif (1 <= $index{$id}) { }
377 0 0 unless $index{${$_[0];}}
427 946 0 unless ($listeners{$id})
430 946 0 if (&looks_like_instance($listener, 'CODE')) { }
461 8591 30 if ($listeners{$id})
518 4 0 unless $sets{$id}
539 56 0 if ($sets)
561 0 0 unless $sets{$id}
581 35 25 unless $sets{$id}
605 22 0 if (&looks_like_object($set, 26) and $sets{$self->get_id}{$set->get_id}) { }
607 22 0 if (defined $i) { }
608 14 8 $set->get_by_index($i) ? :
637 0 14 unless $sets{$id}
639 14 0 if (defined $i) { }
642 0 14 unless (exists $sets{$id}{$set_id})
674 0 0 unless $sets{$id}
676 0 0 if (defined $i) { }