blib/lib/Data/Seek/Search.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 34 | 38 | 89.4 |
line | true | false | branch |
---|---|---|---|
45 | 1 | 51 | unless $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)?)?)$/ } |
69 | 6 | 41 | $self->cache ? : |
80 | 7 | 93 | /([^\.]+):(\d+)/ ? : |
123 | 33 | 38 | /^\\?:/ ? : |
132 | 13 | 84 | if $index |
133 | 84 | 13 | unless $index |
137 | 41 | 56 | if $last |
139 | 74 | 23 | if (@nodes) |
146 | 23 | 74 | unless (@nodes) |
147 | 12 | 11 | if $self->ignore |
151 | 8 | 28 | if $expr =~ /\@/ |
152 | 2 | 26 | if $expr =~ /:(\d+)/ |
153 | 0 | 26 | if $expr =~ /(.*):(\d+)/ |
154 | 0 | 26 | if $expr =~ /\*+/ |
161 | 5 | 6 | if ($first) { } |
162 | 3 | 2 | if (not $is_match) { } |
0 | 2 | elsif ($is_match and not $is_hash and not $is_array) { } | |
197 | 0 | 6 | if (not $was_match) { } |
3 | 3 | elsif ($was_match and not $was_hash and not $was_array) { } |