| blib/lib/Hash/Case/Preserve.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 3 | 3 | if ($keep eq 'LAST') { } |
| 3 | 0 | elsif ($keep eq 'FIRST') { } | |
| 43 | 14 | 2 | if $$self{'HCP_update'} or not exists $$self{'HCP_keys'}{$lckey} |
| 57 | 30 | 26 | if (my($k, $v) = each %{$$self{'HCP_keys'};}) { } |
| 58 | 0 | 30 | wantarray ? : |