blib/lib/Util/H2O.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 63 | 63 | 100.0 |
line | l | !l | condition |
---|---|---|---|
387 | 14 | 11 | ref $_ eq "HASH" and h2o("-recurse", "-lock", $lock, $ro ? "-ro" : (), $_) |
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" |
line | l | !l | condition |
---|---|---|---|
399 | 5 | 1 | eval { do { &$destroy($_[0]); 1 } } or carp($@) |
413 | 11 | 1 | exists $keys{$_} or croak("Unknown argument '${_}'") |
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 |