| blib/lib/HashDataRole/Source/Array.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 1 | unless my $ary = delete $args{'array'} |
| 19 | 0 | 1 | if keys %args |
| 26 | 0 | 3 | if exists $$hash{$elem->[0]} |
| 39 | 1 | 4 | unless $self->{'pos'} < @{$self->{'array'};} |
| 65 | 0 | 2 | if ($pos < 0) { } |
| 66 | 0 | 0 | unless -$pos <= @{$self->{'array'};} |
| 68 | 1 | 1 | unless $pos < @{$self->{'array'};} |
| 75 | 0 | 2 | if ($pos < 0) { } |
| 76 | 0 | 0 | -$pos <= @{$self->{'array'};} ? : |
| 78 | 1 | 1 | $pos < @{$self->{'array'};} ? : |
| 84 | 1 | 1 | unless exists $self->{'_hash'}{$key} |