Branch Coverage

blib/lib/Class/LOP.pm
Criterion Covered Total %
branch 15 64 23.4


line true false branch
86 0 0 unless ($class)
93 0 0 unless (scalar %{"${class}::";})
109 0 7 unless ($class)
139 0 1 unless $class
153 0 0 if substr($method, -2, 2) ne '::'
163 0 1 unless ($method)
176 0 0 scalar @list > 0 ? :
193 0 5 if (not scalar %{"${class}::";}) { }
199 67 0 if $caller->can($method)
214 0 0 unless (grep {$_ eq $mother;} @{$$self{'classes'};})
216 0 0 if $@
235 1 0 if ($self->class_exists($class)) { }
243 0 1 if ($type and $type eq 'ro') { }
245 0 0 if (@_ > 1)
246 0 0 if ($default)
247 0 0 unless (exists $_[0]{"${acc}_$_[0]_default_used"})
264 2 2 if (@_ > 1)
273 1 0 if ($default)
291 1 0 if (not $caller->can('new'))
298 0 1 if ($cself->can('__init'))
313 0 0 if ($self->class_exists($caller)) { }
332 0 0 if ($self->class_exists($class)) { }
335 0 0 if ($self->method_exists($class, $name))
357 0 1 unless ($self->method_exists($class, $name))
383 0 0 if ($self->class_exists($caller)) { }
384 0 0 if ($type and $class and $method and $code) { }
385 0 0 unless ($self->method_exists($class, $method))
398 0 0 if (/after/) { }
0 0 elsif (/before/) { }
0 0 elsif (/around/) { }
437 0 0 unless (ref $class)
462 1 1 if ($$self{'_attributes'}{$class}) { }