Branch Coverage

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


line true false branch
426 102 3 if eval { do { $_ =~ /$re/u } }
427 0 3 if $@
435 685 42 unless $mem{&refaddr($_)}++
448 78 3 if ($is_recursive) { }
455 22 59 unless ($simpsel->{'type'} eq '*')
460 0 3 /::$/u ? :
468 71 123 if ($ref eq $_)
481 0 66 unless @res
485 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') { }
498 13 162 unless &blessed($o) and $o->can($attr_name)
499 0 162 if ($attr_args and $i == $#attrs) { }
501 0 0 unless ($op)
510 9 146 unless $op
513 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 '!~') { }
514 10 5 if (&looks_like_number($opv)) { }
515 8 2 unless $val == $opv
517 4 1 unless $val eq $opv
520 6 2 unless $val eq $opv
522 10 5 if (&looks_like_number($opv)) { }
523 2 8 unless $val != $opv
525 1 4 unless $val ne $opv
528 1 4 unless $val ne $opv
530 5 5 if (&looks_like_number($opv)) { }
531 4 1 unless $val > $opv
533 1 4 unless $val gt $opv
536 1 4 unless $val gt $opv
538 5 5 if (&looks_like_number($opv)) { }
539 4 1 unless $val >= $opv
541 1 4 unless $val ge $opv
544 1 4 unless $val ge $opv
546 4 5 if (&looks_like_number($opv)) { }
547 1 3 unless $val < $opv
549 4 1 unless $val lt $opv
552 4 1 unless $val lt $opv
554 4 5 if (&looks_like_number($opv)) { }
555 0 4 unless $val <= $opv
557 3 2 unless $val le $opv
560 3 2 unless $val le $opv
562 5 10 if (not defined $opv) { }
5 5 elsif ($opv) { }
563 1 4 if defined $val
565 4 1 unless $val
567 1 4 if $val
570 5 10 if (not defined $opv) { }
5 5 elsif ($opv) { }
571 4 1 unless defined $val
573 1 4 if $val
575 4 1 unless $val
578 0 0 unless defined $val and ref $val eq 'ARRAY' and defined $opv
580 0 0 if (&looks_like_number($opv)) { }
581 0 0 unless grep {$_ == $opv;} @$val
583 0 0 unless grep {$_ eq $opv;} @$val
586 0 0 unless defined $val and ref $val eq 'ARRAY' and defined $opv
588 0 0 if (&looks_like_number($opv)) { }
589 0 0 if grep {$_ == $opv;} @$val
591 0 0 if grep {$_ eq $opv;} @$val
594 0 0 unless defined $val and defined $opv and ref $opv eq 'ARRAY'
596 0 0 if (&looks_like_number($val)) { }
597 0 0 unless grep {$_ == $val;} @$opv
599 0 0 unless grep {$_ eq $val;} @$opv
602 0 0 unless defined $val and defined $opv and ref $opv eq 'ARRAY'
604 0 0 if (&looks_like_number($val)) { }
605 0 0 if grep {$_ == $val;} @$opv
607 0 0 if grep {$_ eq $val;} @$opv
610 7 3 unless $val =~ /$opv/u
612 3 2 if $val =~ /$opv/u
630 0 1 /::$/u ? :
637 15 32 if ($res->isa($_))
650 42 0 if $_->can($method)
656 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') { }
723 77 4 if ($i++ == 0) { }
729 0 4 unless @res
730 1 3 if ($combinator->{'combinator'} eq ' ') { }
1 2 elsif ($combinator->{'combinator'} eq '>') { }
1 1 elsif ($combinator->{'combinator'} eq '~') { }
1 0 elsif ($combinator->{'combinator'} eq '+') { }
755 75 1 if (ref $_[0] eq 'HASH') { }
764 0 76 unless $pexpr
766 0 76 if $opts->{'get_parent_method'}
767 0 76 if $opts->{'set_parent_method'}
768 0 76 if $opts->{'get_children_method'}
769 0 76 if $opts->{'set_children_method'}
773 0 76 if ($opts->{'wrap'}) { }