Branch Coverage

blib/lib/With/Roles.pm
Criterion Covered Total %
branch 31 42 73.8


line true false branch
18 2 13 if exists $COMPOSITE_NAME{$key}
36 0 13 if ($COMPOSITE_KEY{$new_name} or length $new_name > 252)
56 9 0 defined $type ? :
67 0 9 unless eval $code
69 0 9 if defined $e
87 1 8 if ($INC{'Moo/Role.pm'} and 'Moo::Role'->is_role($base)) { }
2 6 elsif ($INC{'Moo.pm'} and 'Moo'->_accessor_maker_for($base)) { }
0 6 elsif ($INC{'Class/MOP.pm'} and $meta = Class::MOP::class_of($base) and $meta->isa('Moose::Meta::Role')) { }
0 6 elsif ($INC{'Class/MOP.pm'} and $meta = Class::MOP::class_of($base) and $meta->isa('Class::MOP::Class')) { }
0 6 elsif (defined &Mouse::Util::find_meta and $meta = Mouse::Util::find_meta($base) and $meta->isa('Mouse::Meta::Role')) { }
0 6 elsif (defined &Mouse::Util::find_meta and $meta = Mouse::Util::find_meta($base) and $meta->isa('Mouse::Meta::Class')) { }
1 5 elsif ($INC{'Role/Tiny.pm'} and 'Role::Tiny'->is_role($base)) { }
136 5 0 if ($INC{'Role/Tiny.pm'} and not grep((!'Role::Tiny'->is_role($_)), @roles)) { }
151 0 11 unless @roles
156 10 1 unless $BASE{$base}
158 1 10 $self->can('ROLE_BASE') ? :
166 9 2 unless (exists $BASE{$new})
167 0 9 unless my $type = _detect_type($base, @roles)
170 2 2 $type =~ /Role/ ? :
5 4 $type eq 'Role::Tiny::With' ? :
182 2 9 if (ref $self)