Condition Coverage

blib/lib/Data/Selector.pm
Criterion Covered Total %
condition 39 50 78.0


and 3 conditions

line !l l&&!r l&&r condition
240 0 0 98 defined $args->{'selector_string'} and length $args->{'selector_string'}
247 0 0 6 defined $args->{'named_selectors'}{$1} && length $args->{'named_selectors'}{$1}
257 0 98 0 length $args->{'selector_string'} and not $args->{'selector_string'} =~ /[^.\[\],]/o
294 344 149 2 $opening_bracket_pos > -1 and $dot_in_prefix_pos > $opening_bracket_pos
304 18 0 0 $opening_bracket_pos > -1 and $dot_in_prefix_pos > $opening_bracket_pos
329 31 43 371 $first_char ne '+' and $first_char ne '-'
341 225 215 55 not length $string || $prev_is_suffix and @{$token->[2];}
437 17 27 109 not $has_includes and index($_->[0], '+') == 0
444 2 2 10 $2 < 0 && $2 >= -@{$data_tree;}
450 101 38 14 $data_tree_type eq 'ARRAY' and index($_->[0], '..') != -1
523 57 30 67 ref $data_sub_tree and grep {$_ ne '_order_';} keys %{$selector_sub_tree;}
529 25 100 9 $has_includes and not %matched_includes

or 2 conditions

line l !l condition
423 0 134 $selector_trees_keys{$selector_tree} ||= [map({my $selector_tree_key_base = substr($_, 1); [$_, $selector_tree_key_base, index($selector_tree_key_base, '*') != -1 ? do { my $pattern = quotemeta $selector_tree_key_base; $pattern =~ s/\\\*/.*/go; $pattern } : undef, undef, undef, $selector_tree];} (sort {$selector_tree->{$a}{'_order_'} <=> $selector_tree->{$b}{'_order_'};} grep({$_ ne '_order_';} keys %{$selector_tree;})))]

or 3 conditions

line l !l&&r !l&&!r condition
341 224 1 270 length $string || $prev_is_suffix
347 0 1 278 $is_suffix || $prev_is_suffix
439 12 8 133 index($_->[0], '+-') == 0 or index($_->[0], '--') == 0
470 12 200 0 $_->[4] // $_->[0]