| blib/lib/Object/FromData/Hash.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 24 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 0 | 3 | $allow_private ? : |
| 31 | 10 | 2 | if (not ref $value) { } |
| 1 | 1 | elsif ('ARRAY' eq ref $value) { } | |
| 1 | 0 | elsif ('HASH' eq ref $value) { } | |
| 44 | 1 | 11 | if ($key =~ /^_/) |
| 45 | 1 | 0 | unless $allow_private |
| 55 | 1 | 0 | if @_ |
| 61 | 0 | 0 | if @_ |
| 67 | 0 | 0 | if @_ |
| 73 | 1 | 5 | if @_ |
| 80 | 0 | 4 | if @_ |
| 82 | 0 | 4 | unless $self->{'current_index'} <= $#$keys |