Branch Coverage

blib/lib/Object/InsideOut/Chained.pm
Criterion Covered Total %
branch 27 34 79.4


line true false branch
16 5 0 unless (exists $g_ch->{'td'})
38 2 16 if (exists $info->{'exempt'})
51 0 11 if ($ch_td->{$name})
53 0 0 if ($other_package->isa($package) or $package->isa($other_package))
67 3 8 if (exists $info->{'exempt'})
80 47 37 unless grep {$_ eq $pkg;} @{$$trees{$class};}
83 152 5 if (exists $ch_restr->{$p}{$n}) { }
84 149 3 if $ch_restr->{$p}{$n} == $ch_restr->{$pkg}{$n}
86 3 0 if ($equal)
88 1 0 if ($ch_restr->{$pkg}{$n}[$_ - 1] ne $ch_restr->{$p}{$n}[$_ - 1])
94 1 2 unless ($equal)
118 6 12 if (exists $ch_restr->{$package}{$name})
130 3 8 if (exists $ch_restr->{$package}{$name})
150 0 13 unless ($class)
157 7 3 if ($restr and exists $restr->{$class}{$name})
159 1 5 unless (grep {$_ eq $caller;} @{$$restr{$class}{$name};} or $caller->isa($class) or $class->isa($caller))
169 45 8 if (my $code = $code_refs->{$pkg})