| 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) { } |