Branch Coverage

blib/lib/Object/InsideOut/Universal.pm
Criterion Covered Total %
branch 46 72 63.8


line true false branch
17 0 27 unless defined $thing
20 4 23 if (@_ == 1)
22 2 2 wantarray ? :
25 0 23 unless defined $method
29 1 22 if ($method =~ /^SUPER::/) { }
36 9 14 if ($code)
42 13 1 if (not $method =~ /::/) { }
0 1 elsif (not $method =~ /SUPER::/) { }
1 0 elsif ($method =~ /^SUPER::/) { }
73 1 27 if ($super and $class eq $pkg)
78 4 23 if (exists $heritage->{$pkg})
81 4 0 if ($code = $pkg2->can($method))
88 14 9 if (my $automethod = $automethods->{$pkg})
93 12 2 if (my($code, $ctype) = &$automethod($thing))
94 0 12 if (ref $code ne 'CODE')
101 3 9 if (defined $ctype)
103 3 0 if ($type and $type =~ /CUM/i)
104 2 1 if ($code_type) { }
106 0 2 $dir && $dir =~ /BOT/i ? :
107 0 2 if ($code_type ne $type or $code_dir ne $dir)
116 0 1 $dir && $dir =~ /BOT/i ? :
121 0 0 if ($type and $type =~ /CHA/i)
122 0 0 if ($code_type) { }
124 0 0 $dir && $dir =~ /BOT/i ? :
125 0 0 if ($code_type ne $type or $code_dir ne $dir)
134 0 0 $dir && $dir =~ /BOT/i ? :
146 0 9 if ($code_type)
160 1 0 if ($code_type)
161 0 1 $code_dir eq 'bottom up' ? :
162 1 0 $code_type eq ':Cumulative' ? :
176 0 161 unless defined $thing
179 4 157 if (@_ == 1)
184 0 157 unless defined $type
187 49 108 if (my $isa = eval { do { $thing->Object::InsideOut::SUPER::isa($type) } })
193 31 124 if (exists $GBL->{'heritage'}{$pkg})
195 15 16 if (my $isa = $pkg->isa($type))