Condition Coverage

blib/lib/Util/H2O.pm
Criterion Covered Total %
condition 63 63 100.0


and 2 conditions

line l !l condition
387 14 11 ref $_ eq "HASH" and h2o("-recurse", "-lock", $lock, $ro ? "-ro" : (), $_)

and 3 conditions

line !l l&&!r l&&r condition
327 2 3 243 @_ and $_[0]
3 90 153 @_ and $_[0] and not ref $_[0]
93 5 148 @_ and $_[0] and not ref $_[0] and $_[0] =~ /^-/
337 4 9 3 $pass ne "undef" and $pass ne "ref"
379 74 7 3 $ro and @_
81 2 1 $ro and @_ and not $new
383 66 11 6 exists $keys{'DESTROY'} and $destroy || $clean || !$meth || ref $hash->{'DESTROY'} ne 'CODE'
385 55 15 1 $new and exists $keys{'new'}
386 61 8 1 $ro and not $lock
393 53 13 18 $meth and ref $hash->{$k} eq "CODE"

or 2 conditions

line l !l condition
399 5 1 eval { do { &$destroy($_[0]); 1 } } or carp($@)
413 11 1 exists $keys{$_} or croak("Unknown argument '${_}'")

or 3 conditions

line l !l&&r !l&&!r condition
337 1 3 13 not defined $pass or $pass ne "undef" and $pass ne "ref"
342 1 1 14 not defined $class or ref $class
2 1 13 not defined $class or ref $class or not length $class
348 1 1 9 not defined $class or ref $class
2 1 8 not defined $class or ref $class or not length $class
354 1 5 1 ref $isa eq "ARRAY" or not ref $isa
369 1 3 2 not defined $hash or ref $hash
383 7 4 5 $destroy || $clean || !$meth || ref $hash->{'DESTROY'} ne 'CODE'
397 5 49 15 $destroy or $clean