| blib/lib/Data/Seek/Search.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 15 | 73.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 45 | 0 | 1 | 51 | $expr and $expr =~ do { my $name = '[\\w\\*]+'; my $indx = ':\\d+'; my $iter = '\\@'; my $sect = join('|', "(?:$indx\\.|$indx\$)", "(?:$iter\\.|$iter\$)", "(?:$name\\.|$name\$)", "(?:$name$indx\\.|$name$indx\$)"); qr/^(?:$indx|($sect)+(?:$iter|$name(?:$indx)?)?)$/ } |
| 162 | 0 | 1 | 1 | $is_match and not $is_hash |
| 1 | 1 | 0 | $is_match and not $is_hash and not $is_array | |
| 197 | 0 | 1 | 5 | $was_match and not $was_hash |
| 1 | 2 | 3 | $was_match and not $was_hash and not $was_array |