| blib/lib/Data/InputMonster/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 5 | unless defined $locator |
| 23 | 1 | 4 | unless ref $locator |
| 25 | 0 | 5 | if (ref $locator eq 'CODE') { } |
| 5 | 0 | elsif (ref $locator eq 'ARRAY') { } | |
| 33 | 1 | 13 | unless my $ref = ref $next |
| 34 | 0 | 13 | unless $ref and $ref eq 'ARRAY' || $ref eq 'HASH' |
| 36 | 1 | 12 | if $ref eq 'ARRAY' and not $k =~ /\A-?\d+\z/ |
| 37 | 7 | 5 | if $ref eq 'ARRAY' |
| 38 | 5 | 7 | if $ref eq 'HASH' |