| blib/lib/Hash/Match.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 30 | 32 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 34 | 0 | if (my $rules = $args{'rules'}) { } |
| 27 | 22 | 12 | XXX ? : |
| 41 | 19 | 37 | if (XXX) { } |
| 43 | 16 | 3 | if XXX |
| 45 | 2 | 1 | if XXX |
| 51 | 35 | 2 | if defined $value |
| 73 | 3 | 57 | if ($key eq "-not") |
| 75 | 2 | 1 | $ctx eq 'HASH' ? : |
| 78 | 1 | 59 | unless $KEY2FN{$key} |
| 84 | 8 | 105 | if (my $key_ref = ref $key) { } |
| 86 | 6 | 2 | if (XXX) { } |
| 2 | 0 | elsif (XXX) { } | |
| 120 | 56 | 49 | if ($match_ref =~ /^(?:ARRAY|HASH)$/) { } |
| 48 | 1 | elsif ($match_ref =~ /^(?:Regexp|CODE|)$/) { } | |
| 124 | 22 | 34 | $match_ref eq 'ARRAY' ? : |
| 144 | 104 | 60 | exists $hash->{$key} ? : |