blib/lib/Data/Seek/Search.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 15 | 73.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
48 | 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)?)?)$/ } |
165 | 0 | 1 | 1 | $is_match and not $is_hash |
1 | 1 | 0 | $is_match and not $is_hash and not $is_array | |
200 | 0 | 1 | 5 | $was_match and not $was_hash |
1 | 2 | 3 | $was_match and not $was_hash and not $was_array |