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