Branch Coverage

blib/lib/Data/CSel.pm
Criterion Covered Total %
branch 187 248 75.4


line true false branch
440 104 3 if eval { do { $_ =~ /$re/u } }
441 0 3 if $@
449 685 42 unless $mem{&refaddr($_)}++
462 78 3 if ($is_recursive) { }
469 22 59 unless ($simpsel->{'type'} eq "*")
474 0 3 /::$/u ? :
482 71 123 if ($ref eq $_)
495 0 66 unless @res
499 34 32 if ($type eq 'attr_selector') { }
6 26 elsif ($type eq 'class_selector') { }
6 20 elsif ($type eq 'id_selector') { }
20 0 elsif ($type eq 'pseudoclass') { }
512 13 162 unless &blessed($o) and $o->can($attr_name)
513 0 162 if ($attr_args and $i == $#attrs) { }
515 0 0 unless ($op)
524 9 146 unless $op
527 15 131 if ($op eq '=' or $op eq '==') { }
8 123 elsif ($op eq 'eq') { }
15 108 elsif ($op eq '!=' or $op eq '<>') { }
5 103 elsif ($op eq 'ne') { }
10 93 elsif ($op eq '>') { }
5 88 elsif ($op eq 'gt') { }
10 78 elsif ($op eq '>=') { }
5 73 elsif ($op eq 'ge') { }
9 64 elsif ($op eq '<') { }
5 59 elsif ($op eq 'lt') { }
9 50 elsif ($op eq '<=') { }
5 45 elsif ($op eq 'le') { }
15 30 elsif ($op eq 'is') { }
15 15 elsif ($op eq 'isnt') { }
0 15 elsif ($op eq 'has') { }
0 15 elsif ($op eq 'hasnt') { }
0 15 elsif ($op eq 'in') { }
0 15 elsif ($op eq 'notin') { }
10 5 elsif ($op eq '=~') { }
5 0 elsif ($op eq '!~') { }
528 10 5 if (&looks_like_number($opv)) { }
529 8 2 unless $val == $opv
531 4 1 unless $val eq $opv
534 6 2 unless $val eq $opv
536 10 5 if (&looks_like_number($opv)) { }
537 2 8 unless $val != $opv
539 1 4 unless $val ne $opv
542 1 4 unless $val ne $opv
544 5 5 if (&looks_like_number($opv)) { }
545 4 1 unless $val > $opv
547 1 4 unless $val gt $opv
550 1 4 unless $val gt $opv
552 5 5 if (&looks_like_number($opv)) { }
553 4 1 unless $val >= $opv
555 1 4 unless $val ge $opv
558 1 4 unless $val ge $opv
560 4 5 if (&looks_like_number($opv)) { }
561 1 3 unless $val < $opv
563 4 1 unless $val lt $opv
566 4 1 unless $val lt $opv
568 4 5 if (&looks_like_number($opv)) { }
569 0 4 unless $val <= $opv
571 3 2 unless $val le $opv
574 3 2 unless $val le $opv
576 5 10 if (not defined $opv) { }
5 5 elsif ($opv) { }
577 1 4 if defined $val
579 4 1 unless $val
581 1 4 if $val
584 5 10 if (not defined $opv) { }
5 5 elsif ($opv) { }
585 4 1 unless defined $val
587 1 4 if $val
589 4 1 unless $val
592 0 0 unless defined $val and ref $val eq "ARRAY" and defined $opv
594 0 0 if (&looks_like_number($opv)) { }
595 0 0 unless grep {$_ == $opv;} @$val
597 0 0 unless grep {$_ eq $opv;} @$val
600 0 0 unless defined $val and ref $val eq "ARRAY" and defined $opv
602 0 0 if (&looks_like_number($opv)) { }
603 0 0 if grep {$_ == $opv;} @$val
605 0 0 if grep {$_ eq $opv;} @$val
608 0 0 unless defined $val and defined $opv and ref $opv eq "ARRAY"
610 0 0 if (&looks_like_number($val)) { }
611 0 0 unless grep {$_ == $val;} @$opv
613 0 0 unless grep {$_ eq $val;} @$opv
616 0 0 unless defined $val and defined $opv and ref $opv eq "ARRAY"
618 0 0 if (&looks_like_number($val)) { }
619 0 0 if grep {$_ == $val;} @$opv
621 0 0 if grep {$_ eq $val;} @$opv
624 7 3 unless $val =~ /$opv/u
626 3 2 if $val =~ /$opv/u
644 0 1 /::$/u ? :
651 15 32 if ($res->isa($_))
664 42 0 if $_->can($method)
670 1 19 if ($pc eq 'first') { }
1 18 elsif ($pc eq 'last') { }
3 15 elsif ($pc eq 'first-child') { }
1 14 elsif ($pc eq 'last-child') { }
1 13 elsif ($pc eq 'only-child') { }
1 12 elsif ($pc eq 'nth-child') { }
1 11 elsif ($pc eq 'nth-last-child') { }
1 10 elsif ($pc eq 'first-of-type') { }
1 9 elsif ($pc eq 'last-of-type') { }
1 8 elsif ($pc eq 'only-of-type') { }
1 7 elsif ($pc eq 'nth-of-type') { }
1 6 elsif ($pc eq 'nth-last-of-type') { }
2 4 elsif ($pc eq 'root') { }
0 4 elsif ($pc eq 'has-min-children') { }
0 4 elsif ($pc eq 'has-max-children') { }
0 4 elsif ($pc eq 'has-children-between') { }
1 3 elsif ($pc eq 'empty') { }
1 2 elsif ($pc eq 'has') { }
2 0 elsif ($pc eq 'not') { }
0 0 elsif ($pc eq 'parent') { }
737 77 4 if ($i++ == 0) { }
743 0 4 unless @res
744 1 3 if ($combinator->{'combinator'} eq ' ') { }
1 2 elsif ($combinator->{'combinator'} eq '>') { }
1 1 elsif ($combinator->{'combinator'} eq '~') { }
1 0 elsif ($combinator->{'combinator'} eq '+') { }
769 75 1 if (ref $_[0] eq 'HASH') { }
778 0 76 unless $pexpr
780 0 76 if $opts->{'get_parent_method'}
781 0 76 if $opts->{'set_parent_method'}
782 0 76 if $opts->{'get_children_method'}
783 0 76 if $opts->{'set_children_method'}
787 0 76 if ($opts->{'wrap'}) { }