| blib/lib/Hash/Squash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 25 | 26 | 96.1 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 93 | 31 | unless ref $obj |
| 28 | 7 | 24 | if ref $obj ne 'HASH' |
| 31 | 22 | 2 | if %{$obj;} |
| 32 | 1 | 1 | unless exists $$arg{'keep_empty'} |
| 33 | 0 | 1 | unless $$arg{'keep_empty'} |
| 40 | 12 | 10 | unless grep {/\D/;} @keys |
| 52 | 41 | 3 | exists $$obj{$i} ? : |
| 60 | 12 | 19 | if ref $obj ne 'ARRAY' |
| 62 | 8 | 11 | exists $$arg{'keep_empty'} ? : |
| 65 | 17 | 2 | if @{$obj;} != 0 |
| 66 | 1 | 1 | unless $keep_empty |
| 71 | 10 | 7 | if @{$obj;} != 1 |
| 72 | 3 | 4 | if $keep_empty |