| blib/lib/Util/Utl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 22 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 1 | 10 | if ref $_[0] eq 'CODE' |
| 25 | 10 | 0 | if ref $_[1] eq 'HASH' |
| 34 | 6 | 4 | if ref $query[-1] eq 'HASH' |
| 41 | 14 | 11 | if (exists $$hash{$key}) |
| 42 | 5 | 9 | if ($test) |
| 44 | 3 | 2 | unless &$test($_, $key, $hash) |
| 47 | 4 | 7 | unless $exclusive |
| 51 | 2 | 8 | if ($exclusive and @found > 1) |
| 52 | 0 | 2 | if (ref $exclusive eq 'CODE') { } |
| 60 | 1 | 7 | if $$options{'empty'} and not @found |
| 62 | 2 | 5 | unless @found |