Branch Coverage

blib/lib/Scalar/Does.pm
Criterion Covered Total %
branch 24 32 75.0


line true false branch
25 0 3 if (&Scalar::Does::does($p, 'CODE'))
26 1 2 if (&Scalar::Does::does($p, 'HASH'))
27 1 2 if (&Scalar::Does::does($p, 'Regexp'))
28 1 2 unless (ref $p)
30 1 2 unless $coderef
95 0 0 if B::svref_2object($_)->STASH->NAME eq $into
149 0 0 if @_ == 1
150 0 0 unless &blessed($_[0])
156 0 171 if @_ == 1
161 96 75 if (my $test = $_ROLES{$role})
166 18 57 if (&blessed($role) and $role->can('check'))
171 12 45 if (&blessed($thing) and $thing->can('DOES')) { }
12 58 elsif (UNIVERSAL::can($thing, 'can') and $thing->can('DOES')) { }
173 5 7 if $thing->DOES($role)
178 3 9 if $class->DOES($role)
187 1 2 unless my $role = $$arg{-'role'}