Condition Coverage

blib/lib/Hash/Wrap.pm
Criterion Covered Total %
condition 57 92 61.9


and 3 conditions

line !l l&&!r l&&r condition
49 58 0 172 defined $_->[0] && defined $_->[1]
0 0 115 defined $candidate and 2 == grep({defined $_->[0] && defined $_->[1] ? $_->[0] eq $_->[1] : 1;} [$reftype->[0], builtin::reftype($candidate)], [$reftype->[1], builtin::reftype($$candidate)])
97 71 0 4 exists $REGISTRY{$hash_class}{'predicate_template'} and $key =~ /^has_(.*)/
160 67 3 1 not !$args->{'-base'} and exists $args->{'-class'}
173 7 0 2 $reftype ne "SCALAR" and $reftype ne "VSTRING"
7 1 1 $reftype ne "SCALAR" and $reftype ne "VSTRING" and $reftype ne "REF"
1 0 1 $reftype ne "SCALAR" and $reftype ne "VSTRING" and $reftype ne "REF" and $reftype ne "GLOB"
1 0 1 $reftype ne "SCALAR" and $reftype ne "VSTRING" and $reftype ne "REF" and $reftype ne "GLOB" and $reftype ne "LVALUE"
0 0 1 $reftype ne "SCALAR" and $reftype ne "VSTRING" and $reftype ne "REF" and $reftype ne "GLOB" and $reftype ne "LVALUE" and $reftype ne "REGEXP"
498 55 9 1 exists $args->{'-copy'} and exists $args->{'-clone'}
645 203 0 14 defined $closures and %$closures

or 2 conditions

line l !l condition
550 8 56 $args->{'-immutable'} || undef
3 53 $args->{'-lockkeys'} || undef
675 11 24 15 shift() // {}
11 2 2 shift() // {}
3 0 2 shift() // {}
2 1 0 shift() // {}
1 0 0 shift() // {}
10 1 0 shift() // {}
1 0 0 shift() // {}
1 0 0 shift() // {}
0 2 shift() // {}
1 0 shift() // {}

or 3 conditions

line l !l&&r !l&&!r condition
31 0 0 0 ref $class || $class
37 11 0 0 builtin::blessed($object) || ref $object || $object
131 5 27 0 *{$method;}{'CODE'} || _generate_accessor($CLASS, $class, $key)
162 0 0 70 $ENV{'HASH_WRAP_DEBUG'} // delete $args->{'-debug'}
168 1 69 0 delete $args->{'-into'} // caller
234 1 2 13 $attr->{'-class'} eq "-target" or $attr->{'-class'} eq "-caller"
589 7 20 36 $args->{'-as_scalar_ref'} or $args->{'-as_return'}
618 63 0 0 _compile_from_tpl(\$code, \%dict, keys %closures ? \%closures : ()) || _croak_about_code(\$code, "constructor (as $name) subroutine")
628 0 0 0 $error //= $@