| blib/lib/HTML/DOM/Attr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 22 | 28 | 78.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 83 | 13 | 0 | 13 | defined &blessed($val) && $val->isa('HTML::DOM::Text') |
| 123 | 261 | 1 | 2 | $self->[2] =~ /^on(.*)/is and my $listener_maker = $self->ownerDocument->event_attr_handler |
| 238 | 0 | 7 | 3 | defined &blessed($new_node) and $new_node->isa('HTML::DOM::DocumentFragment') |
| 245 | 0 | 2 | 7 | defined &blessed($new_node) and $new_node->isa('HTML::DOM::Text') |
| 252 | 1 | 5 | 1 | $self->[1] && $self->[1]->is_inside($self->[0]) |
| line | l | !l | condition |
|---|---|---|---|
| 121 | 264 | 12 | $self->[1] || (return) |
| 197 | 21 | 3 | $attr->[1] || (return 1) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 99 | 12 | 27 | 0 | $self->[5] ||= do { require CSS::DOM::Style, my $ret = CSS::DOM::Style::parse(my $val = $self->value); $ret->modification_handler(my $cref = sub { if (ref(my $text = $self->_value)) { $text->attr('text', (shift())->cssText); } ; $self->_modified; } ); &weaken($self); my $css_code = $ret->cssText; if ($val ne $css_code) { &$cref($ret); } ; $ret } |
| 217 | 2 | 4 | 0 | $_[0][4] ||= 'HTML::DOM::NodeList'->new($_[0][3]) |
| 235 | 0 | 1 | 10 | not ref $val or $old_node != $val |