| blib/lib/TableDataRole/Source/AOH.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 18 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 1 | unless my $aoh = delete $args{'aoh'} |
| 20 | 0 | 1 | if keys %args |
| 35 | 0 | 1 | unless (@$aoh) |
| 43 | 1 | 0 | unless ($self->{'column_names'}) |
| 47 | 1 | 0 | if (@$aoh) |
| 56 | 1 | 0 | wantarray ? : |
| 67 | 0 | 2 | unless $self->{'pos'} < @{$aoh;} |
| 72 | 0 | 2 | unless defined $idx |
| 81 | 0 | 2 | unless $self->{'pos'} < @{$aoh;} |