| 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) |