| blib/lib/ArrayDataRole/Source/Array.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 18 | 55.5 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 1 | unless my $ary = delete $args{'array'} |
| 19 | 0 | 1 | if keys %args |
| 30 | 1 | 4 | unless $self->{'pos'} < @{$self->{'array'};} |
| 56 | 0 | 2 | if ($pos < 0) { } |
| 57 | 0 | 0 | unless -$pos <= @{$self->{'array'};} |
| 59 | 1 | 1 | unless $pos < @{$self->{'array'};} |
| 66 | 0 | 2 | if ($pos < 0) { } |
| 67 | 0 | 0 | -$pos <= @{$self->{'array'};} ? : |
| 69 | 1 | 1 | $pos < @{$self->{'array'};} ? : |