Branch Coverage

blib/lib/Mouse/Meta/Role/Application.pm
Criterion Covered Total %
branch 47 52 90.3


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 334 351 if $method_name eq 'meta'
130 315 36 unless (exists $excludes->{$method_name})
131 303 12 unless ($consumer->has_method($method_name))
137 34 317 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 325 137 unless ($metaclass_or_role->does_role($r))