blib/lib/OptionHash.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 7 | 8 | 87.5 |
line | true | false | branch |
---|---|---|---|
26 | 1 | 12 | unless ref $oh eq "OptionHash" |
27 | 1 | 11 | unless ref $h eq "HASH" |
28 | 0 | 11 | unless my $keys = $oh->{'keys'} |
30 | 3 | 10 | unless (exists $keys->{$_}) |