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} |