Branch Coverage

blib/lib/Params/SomeUtil.pm
Criterion Covered Total %
branch 42 46 91.3


line true false branch
208 36 14 defined $_[0] && !ref($_[0]) && length $_[0] ? :
227 32 44 defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*\z/s ? :
251 74 78 defined $arg && !ref($arg) && $arg =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? :
278 10 42 defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string->isa($class) ? :
294 6 2 defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string->DOES($role) ? :
321 6 46 defined $string && !ref($string) && $string =~ /^[^\W\d]\w*(?:::\w+)*\z/s && $string ne $class && $string->isa($class) ? :
368 65 71 defined $arg && !ref($arg) && $arg =~ /^[1-9]\d*$/ ? :
399 40 48 defined $arg && !ref($arg) && $arg =~ /^(?:0|[1-9]\d*)$/ ? :
663 18 26 defined $_[0] && (defined builtin::blessed($_[0]) || &_CLASS($_[0])) ? :
703 90 45 builtin::blessed($_[0]) && $_[0]->DOES($_[1]) ? :
746 50 64 unless &_ARRAY($set)
26 34 unless &_INSTANCE($item, $_[0])
776 52 28 unless &_ARRAY0($set)
14 22 unless &_INSTANCE($item, $_[0])
808 10 44 unless (defined $it)
30 34 if (ref $it eq "GLOB")
10 36 if (tied $it and tied($it)->can("TIEHANDLE"))
26 13 unless (builtin::blessed($it))
0 2 if ($it->isa("IO::Handle"))
0 2 if ($it->isa("Tie::Handle"))
0 2 if ($it->isa("IO::Scalar"))
0 2 if ($it->isa("IO::String"))
885 4 34 defined &_CLASS($_[0]) && eval "require $_[0];" && !$@ && $_[0]->isa($_[1]) && $_[0] ne $_[1] ? :