| blib/lib/Data/Seek/Search.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 34 | 38 | 89.4 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 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)?)?)$/ } |
| 72 | 6 | 41 | $self->cache ? : |
| 83 | 7 | 93 | /([^\.]+):(\d+)/ ? : |
| 126 | 33 | 38 | /^\\?:/ ? : |
| 135 | 13 | 84 | if $index |
| 136 | 84 | 13 | unless $index |
| 140 | 41 | 56 | if $last |
| 142 | 74 | 23 | if (@nodes) |
| 149 | 23 | 74 | unless (@nodes) |
| 150 | 12 | 11 | if $self->ignore |
| 154 | 8 | 28 | if $expr =~ /\@/ |
| 155 | 2 | 26 | if $expr =~ /:(\d+)/ |
| 156 | 0 | 26 | if $expr =~ /(.*):(\d+)/ |
| 157 | 0 | 26 | if $expr =~ /\*+/ |
| 164 | 5 | 6 | if ($first) { } |
| 165 | 3 | 2 | if (not $is_match) { } |
| 0 | 2 | elsif ($is_match and not $is_hash and not $is_array) { } | |
| 200 | 0 | 6 | if (not $was_match) { } |
| 3 | 3 | elsif ($was_match and not $was_hash and not $was_array) { } |