Branch Coverage

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