| line |
true |
false |
branch |
|
8
|
0 |
352 |
if (exists $args->{'exclude'} or exists $args->{'alias'}) |
|
13
|
0 |
0 |
if ($args->{'alias'} and not exists $$args{-'alias'}) |
|
16
|
0 |
0 |
if ($args->{'excludes'} and not exists $$args{-'excludes'}) |
|
22
|
30 |
322 |
if (my $alias = $$args{-'alias'}) |
|
26
|
24 |
328 |
if (my $excludes = $$args{-'excludes'}) |
|
28
|
13 |
11 |
if (ref $excludes) { } |
|
36
|
50 |
302 |
if ($class ne 'Mouse::Meta::Role::Application') |
|
46
|
169 |
183 |
if (Mouse::Util::is_a_metaclass($consumer)) { } |
|
|
159 |
24 |
elsif (Mouse::Util::is_a_metarole($consumer)) { } |
|
81
|
23 |
308 |
if (defined $instance) |
|
93
|
159 |
192 |
if ($self->{'_to'} eq 'role') { } |
|
101
|
2 |
58 |
if exists $self->{'aliased_methods'}{$method_name} |
|
102
|
20 |
38 |
if exists $role->{'methods'}{$method_name} |
|
103
|
24 |
14 |
if $consumer_class_name->can($method_name) |
|
107
|
7 |
185 |
if (@missing) |
|
108
|
3 |
4 |
@missing == 1 ? : |
|
126
|
336 |
355 |
if $method_name eq 'meta' |
|
130
|
319 |
36 |
unless (exists $excludes->{$method_name}) |
|
131
|
307 |
12 |
unless ($consumer->has_method($method_name)) |
|
137
|
34 |
321 |
if (exists $alias->{$method_name}) |
|
142
|
4 |
30 |
if (defined $dstcode and $dstcode != $code) { } |
|
158
|
3 |
109 |
if $consumer->has_attribute($attr_name) |
|
169
|
16 |
318 |
if (my $modifiers = $role->{'override_method_modifiers'}) |
|
177
|
940 |
53 |
unless my $table = $$role{"${modifier_type}_method_modifiers"} |
|
185
|
1 |
54 |
if $$consumer{"_applied_$modifier_type"}{join $;, $method_name, $code}++ |
|
198
|
326 |
137 |
unless ($metaclass_or_role->does_role($r)) |