Branch Coverage

blib/lib/Class/DOES.pm
Criterion Covered Total %
branch 13 14 92.8


line true false branch
30 4 3 if (warnings::enabled())
40 88 0 if defined &mro::get_linear_isa
55 2 20 if $meth = $pkg->can('DOES') and $meth != \&Class::DOES::DOES and $meth != ('UNIVERSAL'->can('DOES') || 0)
60 2 20 if $meth = $pkg->can('isa') and $meth != 'UNIVERSAL'->can('isa')
76 46 42 unless defined $class
84 34 254 if (exists do { "${_}::DOES" }->{$role})
86 3 31 unless ($rv)