Branch Coverage

blib/lib/Mouse/Meta/Class.pm
Criterion Covered Total %
branch 75 84 89.2


line true false branch
31 26 733 if (ref $self ne 'Mouse::Meta::Class')
56 750 578 if (@_)
60 749 4 if $self->verify_superclass($super, $meta)
72 164 590 if (defined $super_meta) { }
73 1 163 if (Mouse::Util::is_a_metarole($super_meta))
83 5 585 unless ($mm and $mm == \&Mouse::Util::meta)
84 2 3 if ($super->can('new') or $super->can('DESTROY'))
96 0 2 if ($ENV{'PERL_MOUSE_STRICT'})
123 1 15 unless ($self_c->isa($other_c))
154 0 5 unless ($common_ancestor)
169 0 38 unless defined $method_name
174 38 37 if defined $method
194 0 14 unless defined $name
197 13 9 if $attr->name eq $name
207 6 601 if (&Scalar::Util::blessed($_[0])) { }
210 0 6 unless $attr->isa('Mouse::Meta::Attribute')
219 84 517 @_ == 1 ? :
221 0 601 unless defined $name
224 35 566 if ($name =~ s/^\+//) { }
230 33 48 if ($i->name eq $name)
235 2 33 unless $inherited_attr
242 9 557 if @traits
258 2 583 if (not $attr->{'associated_methods'} and ($attr->{'is'} || '') ne 'bare')
270 546 711 unless my $meta = Mouse::Util::get_metaclass_by_name($class)
302 83 0 if ($args{'inline_constructor'})
308 83 0 if ($args{'inline_destructor'})
332 1 78 unless my $original = $into->can($name)
337 56 22 unless ($modifier_table)
341 24 55 if (@before)
344 51 28 unless (@after)
348 2 26 if (wantarray) { }
3 23 elsif (defined wantarray) { }
381 23 55 if ($type eq 'before') { }
24 31 elsif ($type eq 'after') { }
415 1 23 if ($self->has_method($name))
421 2 21 unless my $super_body = $package->can($name)
435 1 10 if ($self->has_method($name))
439 0 10 unless my $super = $self->find_method_by_name($name)
456 1 509 unless defined $role_name
459 278 231 if ref $role_name
462 241 624 unless my $meta = Mouse::Util::get_metaclass_by_name($class)
467 241 70 if $role->does_role($role_name)