Branch Coverage

blib/lib/mop.pm
Criterion Covered Total %
branch 24 32 75.0


line true false branch
59 2 334 if (defined(my $meta = $opts{"${type}_metaclass"}))
106 0 1 unless $metarole
111 1 0 unless ($new_meta = meta($new_meta_name))
130 452 1 if ($common_base)
137 452 1 if ($common_base)
159 1 11 unless is_mop_object($obj)
162 0 11 if ($SEEN{id($obj)})
168 24 0 if (my $m = meta($_))
180 0 19 if ($obj->isa('mop::attribute') and $attr->name eq '$!storage') { }
185 4 15 if (&Scalar::Util::blessed($data)) { }
1 14 elsif (ref $data) { }
188 0 1 if (ref $data eq 'ARRAY') { }
1 0 elsif (ref $data eq 'HASH') { }
209 26 143 if $BOOTSTRAPPED
268 4433 143 unless defined &{'mop::class::' . $method->name;}
277 1716 0 unless defined &{$package . '::' . $method->name;}