| blib/lib/Data/Find.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 24 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 126 | 6 | 2 | @match ? : |
| 149 | 24 | 42 | if (my $ref = ref $obj) |
| 150 | 22 | 2 | unless ($seen{refaddr $obj}++) |
| 151 | 0 | 22 | unless my $handler = $WALK{$ref} |
| 155 | 26 | 40 | if (&$matcher($obj)) |
| 157 | 13 | 13 | wantarray ? : |
| 203 | 4 | 2 | if (ref $match) |
| 204 | 2 | 2 | if ('CODE' eq ref $match) { } |
| 2 | 0 | elsif ('Regexp' eq ref $match) { } | |
| 210 | 6 | 6 | unless defined $v and not ref $v |
| 216 | 2 | 0 | if (defined $match) |
| 225 | 34 | 0 | if $key =~ /^(?:\d+|[a-z]\w*)$/i |