| blib/lib/Grep/Query/FieldAccessor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 15 | 69 | if (defined $optionalAccessors) |
| 26 | 0 | 15 | unless ref $optionalAccessors eq 'HASH' |
| 54 | 0 | 266 | if ref $field |
| 55 | 0 | 266 | unless ref $accessor eq 'CODE' |
| 56 | 0 | 266 | if exists $self->{'_fields'}{$field} |
| 76 | 0 | 12536 | unless $accessor |
| 91 | 2477 | 2525 | unless @_ |
| 100 | 33 | 2492 | if ($point =~ /^\[(-?\d+)\]$/) { } |
| 112 | 0 | 2525 | unless $exptype eq $objtype |
| 116 | 33 | 2492 | defined $arridx ? : |