Branch Coverage

blib/lib/Moose/Util.pm
Criterion Covered Total %
branch 95 114 83.3


line true false branch
61 2 5 unless $meta
68 49 73 if (&try(sub {
74 3 70 unless defined $meta
75 12 58 unless $meta->can("does_role")
76 52 6 if $meta->does_role($role)
85 0 8 unless defined $meta
87 4 4 &blessed($role) ? :
93 0 12 unless defined $_meta
95 0 12 unless $_meta->roles
96 6 0 if $role->name eq $role_name
120 3 1641 unless (@_)
134 54 260 unless not ref $_[0]
142 26 1898 if (&blessed($role->[0])) { }
150 3 1917 unless ($meta and $meta->isa("Moose::Meta::Role"))
157 2 1632 if (defined $role_filter)
161 2 1632 unless @role_metas
163 1 1631 unless &blessed($applicant) or Class::MOP::class_of($applicant)
167 1626 6 &blessed($applicant) ? :
169 1406 226 if (scalar @role_metas == 1) { }
171 27 1379 defined $params ? :
180 1 4 unless @roles
215 191 27 $trait ? :
228 471 27 $options{'trait'} ? :
230 292 206 if $cache{$cache_key}{$metaclass_name}
239 81 249 if ($package->can('register_implementation')) { }
121 128 elsif (find_meta($package)) { }
259 411 2 $class_or_obj->can('add_before_method_modifier') ? :
265 7 406 if (my $method_modifier_type = ref $args->[0]) { }
266 3 4 if ($method_modifier_type eq 'Regexp') { }
2 2 elsif ($method_modifier_type eq 'ARRAY') { }
305 15 103 if @items == 1
306 50 53 if @items == 2
316 0 1930 @_ ? :
351 4 8230 $opts && $opts->{'-version'} ? :
356 0 408 unless defined $_[0]
357 187 221 unless ref $_[0]
358 24 197 if overload::OverloadedStringify($_[0])
373 3 58 unless @role_differences
387 0 64 $_->isa('Moose::Meta::Role::Composite') ? :
392 0 0 $super_meta_name->meta->can('roles') ? :
61 0 $super_meta_name->meta->can('_roles_with_inheritance') ? :
396 3 64 $_->isa('Moose::Meta::Role::Composite') ? :
401 0 0 $class_meta_name->meta->can('roles') ? :
61 0 $class_meta_name->meta->can('_roles_with_inheritance') ? :
406 58 12 unless &any(sub {
417 0 63 unless defined $common_base_name
426 2 61 unless &all(sub {
434 0 63 unless defined $meta1 and defined $meta2
452 126 137 if $ancestor_name eq $until_name
465 0 133 unless @parent_names == 1
471 133 0 $meta->can('calculate_all_roles') ? :
476 2 131 unless @roles
482 131 38 if $method->isa("Class::MOP::Method::Meta")
484 26 12 if $method->can("associated_attribute")
486 9 3 if $meta->can("does_role") and $meta->does_role($method->original_package_name)
498 3 0 if $method->isa("Class::MOP::Method::Wrapped") and (!scalar($method->around_modifiers) || &any(sub {
510 26 0 if &any(sub {