| lib/HTML/Object/DOM/Element/Table.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 33 | 79 | 41.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 34 | 0 | 0 | 1 | defined $self->{'tag'} and length "$self->{'tag'}" |
| 86 | 1 | 0 | 0 | $self->{'_table_captions'} and not $self->_is_table_reset("caption") |
| 1 | 0 | 0 | $self->{'_table_captions'} and not $self->_is_table_reset("caption") and not $self->{'_table_captions'}->is_empty | |
| 124 | 0 | 0 | 1 | defined $pos and $self->_is_integer($pos) |
| 134 | 0 | 1 | 0 | $pos < 0 and abs $pos > $size |
| 177 | 0 | 0 | 0 | $pos < 0 and abs $pos > $size |
| 261 | 1 | 18 | 2 | $self->{'_table_rows'} and not $self->_is_table_reset("rows", "tbody", "tfoot", "thead") |
| 371 | 0 | 0 | 0 | $tag ne "caption" and $tag ne "colgroup" |
| 404 | 0 | 12 | 3 | $self->_is_a($children->[$i], "HTML::Object::Element") and $children->[$i]->tag eq $tag |
| 423 | 4 | 4 | 2 | $self->{$cache_name} and not $self->_is_table_reset($tag) |
| 451 | 0 | 0 | 38 | defined $type and length $type |
| 461 | 0 | 0 | 0 | exists $self->{$_} and length $self->{$_} |
| 527 | 0 | 9 | 0 | not defined $pos and $tag eq 'thead' && $e_tag ne 'caption' && $e_tag ne 'colgroup' || $tag eq 'tfoot' && $e_tag ne 'caption' && $e_tag ne 'colgroup' && $e_tag ne 'thead' |
| line | l | !l | condition |
|---|---|---|---|
| 97 | 0 | 0 | 'HTML::Object::DOM::Element::TableCaption'->new(@_) || (return $self->pass_error('HTML::Object::DOM::Element::TableCaption'->error)) |
| 124 | 0 | 0 | $pos // "" |
| 169 | 0 | 0 | $pos // "" |
| 230 | 0 | 0 | 'HTML::Object::DOM::Element::TableRow'->new(@_) || (return $self->pass_error('HTML::Object::DOM::Element::TableRow'->error)) |
| 246 | 0 | 0 | 'HTML::Object::DOM::Element::TableRow'->new(@_) || (return $self->pass_error('HTML::Object::DOM::Element::TableRow'->error)) |
| 282 | 1 | 0 | 'HTML::Object::DOM::Collection'->new || (return $self->pass_error('HTML::Object::DOM::Collection'->error)) |
| 322 | 3 | 0 | shift @_ || (return $self->error('No tag name was provided for this table section.')) |
| 328 | 3 | 0 | 'HTML::Object::DOM::Element::TableSection'->new(%$opts) || (return $self->pass_error('HTML::Object::DOM::Element::TableSection'->error)) |
| 398 | 3 | 0 | shift @_ || (return $self->error('No tag was provided.')) |
| 421 | 10 | 0 | shift @_ || (return $self->error('No tag name was provided for this table section.')) |
| 435 | 8 | 0 | 'HTML::Object::DOM::Collection'->new($results) || (return $self->pass_error('HTML::Object::DOM::Collection'->error)) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 186 | 1 | 0 | 0 | $rows->length or $body |
| 267 | 15 | 7 | 118 | $tag eq "tbody" or $tag eq "tfoot" |
| 22 | 14 | 104 | $tag eq "tbody" or $tag eq "tfoot" or $tag eq "thead" | |
| 493 | 2 | 12 | 93 | $type eq "rows" or $type eq "all" |
| 515 | 0 | 0 | 1 | not $self->_is_a($new, $class) or $new->tag ne $tag |
| 527 | 0 | 0 | 9 | $tag eq 'thead' && $e_tag ne 'caption' && $e_tag ne 'colgroup' || $tag eq 'tfoot' && $e_tag ne 'caption' && $e_tag ne 'colgroup' && $e_tag ne 'thead' |