Branch Coverage

blib/lib/HTML/DOM/Element/Table.pm
Criterion Covered Total %
branch 74 86 86.0


line true false branch
17 7 6 unless $old and $old->tag eq 'caption'
18 4 9 if (@_)
21 1 0 $tag ? :
1 3 unless $tag eq 'caption'
25 1 2 if ($old) { }
37 28 14 if ($tag =~ /^t(?:head|body|foot)\z/)
38 3 25 if (@_)
41 1 0 $tag ? :
1 2 unless $new_tag eq 'thead'
52 12 15 $tag eq 'thead' ? :
55 0 4 if @_
62 28 28 if ($tag =~ /^t(?:body|foot)\z/)
63 3 25 if (@_)
66 1 0 $tag ? :
1 2 unless $new_tag eq 'tfoot'
77 12 15 $tag eq 'tfoot' ? :
80 0 4 if @_
85 2 14 if (wantarray) { }
102 21 5 if (wantarray) { }
127 1 1 if $th
132 0 1 if $_->tag =~ /^c(?:aption|ol(?:group)?)\z/
136 0 1 unless $inserted
151 1 1 if $tf
156 1 1 if $_->tag =~ /^(?:c(?:aption|ol(?:group)?)|thead)\z/
160 0 1 unless $inserted
174 1 1 unless $self->caption
193 2 7 if (not $len) { }
2 5 elsif ($ix == -1 or $ix == $len) { }
3 2 elsif ($ix < $len and $ix >= 0) { }
194 0 2 if (my $tb = $self->tBodies->item(0)) { }
382 3 12 if (wantarray) { }
400 1 6 if (not $len) { }
2 4 elsif ($ix == -1 or $ix == $len) { }
2 2 elsif ($ix < $len and $ix >= 0) { }
433 1 1 if $self == $_
450 1 0 if $self == $_
459 3 8 if (wantarray) { }
482 0 6 if (not $len) { }
2 4 elsif ($ix == -1 or $ix == $len) { }
2 2 elsif ($ix < $len and $ix >= 0) { }
519 1 0 if $self == $_
535 2 2 $_[0] ? :
4 2 @_ ? :