| blib/lib/HashDataRole/Source/Array.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 1 | unless my $ary = delete $args{'array'} |
| 20 | 0 | 1 | if keys %args |
| 27 | 0 | 3 | if exists $$hash{$elem->[0]} |
| 40 | 1 | 4 | unless $self->{'pos'} < @{$self->{'array'};} |
| 66 | 0 | 2 | if ($pos < 0) { } |
| 67 | 0 | 0 | unless -$pos <= @{$self->{'array'};} |
| 69 | 1 | 1 | unless $pos < @{$self->{'array'};} |
| 76 | 0 | 2 | if ($pos < 0) { } |
| 77 | 0 | 0 | -$pos <= @{$self->{'array'};} ? : |
| 79 | 1 | 1 | $pos < @{$self->{'array'};} ? : |
| 85 | 1 | 1 | unless exists $self->{'_hash'}{$key} |