Condition Coverage

blib/lib/Carp/Ensure.pm
Criterion Covered Total %
condition 59 63 93.6


and 3 conditions

line !l l&&!r l&&r condition
244 1 6 12 not $err and $i < @$tp
325 4 7 25 not $err and $idx < @$arr
345 13 13 68 not $err and $idx < @$arr
496 1 9 15 ref $val eq 'SCALAR' && eval { do { $$val->isa($cls) } }
517 2 11 17 ref $val eq 'REF' && UNIVERSAL::isa($$val, $tp)
605 3 2 4 ref $r eq 'REF' && ref $$r eq 'HASH'
620 3 8 8 ref $r eq 'REF' && ref $$r eq 'ARRAY'
634 3 2 3 ref $r eq 'REF' && ref $$r eq 'CODE'
663 2 6 9 ref $r eq 'SCALAR' && !defined($$r)
717 6 22 45 ref $r eq 'SCALAR' && $$r =~ /^\w+$/
731 4 4 10 ref $r eq 'SCALAR' && defined $$r && $$r eq ''
745 1 14 13 ref $r eq 'SCALAR' && $$r =~ /^[-+]?\d+$/
759 1 4 11 ref $r eq 'SCALAR' && $$r =~ /^[-+]?(\d+(\.\d*)?|\.\d+)([Ee][-+]?\d+)?$/
793 3 6 14 ref $r eq 'SCALAR' && defined $$r && defined eval { do { '' =~ /$$r/ } }

or 3 conditions

line l !l&&r !l&&!r condition
46 0 0 1 scalar grep({$_ eq ':NDEBUG';} @syms) or exists $ENV{'PERL_NDEBUG'} ? $ENV{'PERL_NDEBUG'} : $ENV{'NDEBUG'}
245 0 1 11 not defined $$tp[$i] or ref $$tp[$i]
325 0 4 21 &_alternative($keyTp, \$$arr[$idx++]) || &_alternative($valTp, \$$arr[$idx++])
406 19 12 30 $refTp eq 'SCALAR' or $refTp eq 'REF'
553 48 68 58 scalar grep({$tp eq $_;} @referenceSs) or $tp =~ /^\\/
116 30 28 scalar grep({$tp eq $_;} @referenceSs) or $tp =~ /^\\/ or $tp =~ /^$objectRe$/
98 25 3 scalar grep({$tp eq $_;} @referenceSs) or $tp =~ /^\\/ or $tp =~ /^$objectRe$/ or $tp =~ /^\^$objectRe$/