| blib/lib/ArrayDataRole/Source/Array.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 18 | 55.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 1 | unless my $ary = delete $args{'array'} |
| 18 | 0 | 1 | if keys %args |
| 29 | 1 | 4 | unless $self->{'pos'} < @{$self->{'array'};} |
| 55 | 0 | 2 | if ($pos < 0) { } |
| 56 | 0 | 0 | unless -$pos <= @{$self->{'array'};} |
| 58 | 1 | 1 | unless $pos < @{$self->{'array'};} |
| 65 | 0 | 2 | if ($pos < 0) { } |
| 66 | 0 | 0 | -$pos <= @{$self->{'array'};} ? : |
| 68 | 1 | 1 | $pos < @{$self->{'array'};} ? : |