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