Branch Coverage

blib/lib/Rose/HTML/Object.pm
Criterion Covered Total %
branch 132 168 78.5


line true false branch
248 16 1615 $class eq $class->generic_object_class ? :
271 12 1709 if @_ % 2
294 1055 811 $children && @$children ? :
297 0 0 (shift())->parent ? :
303 464 513 if (@_)
311 1 463 if ($old_parent and &Scalar::Util::refaddr($old_parent) != &Scalar::Util::refaddr($new_parent))
314 1 0 unless $new_parent->has_child($self)
327 2 1 if ($_[0] =~ /^[+-]?\d+$/)
338 1 0 if (&Scalar::Util::refaddr($child) == $refaddr)
357 0 0 if (&Scalar::Util::refaddr($child) == $refaddr)
374 61 1305 unless ($Loaded{$type_class})
377 10 51 unless (@{$type_class . "::ISA";})
388 0 10 if $error
416 0 13 unless @_
426 427 0 if (@_ == 2)
428 36 391 exists $self->{'html_attrs'}{$attr} ? :
438 44 0 if (@_)
456 2 0 if (@_)
474 5 27456 unless not $self->validate_html_attrs or $self->html_attr_is_valid($attr)
480 12809 14647 if (@_ == 3) { }
14647 0 elsif (@_ == 2) { }
482 1 12808 if ($hook)
492 13465 1182 if (exists $self->{'html_attrs'}{$attr})
496 1 13464 if ($hook)
514 1 56772 if $attr =~ /^data-\w/
521 4 1 wantarray ? :
528 2 0 if (@_)
532 1 1 if (@_ == 1 and ref $_[0] eq 'HASH') { }
538 0 1 if @_ % 2
548 0 2 wantarray ? :
555 0 27458 unless not $self->validate_html_attrs or $self->html_attr_is_valid($attr)
559 2 27456 if (@_)
565 4 27452 if (exists $self->{'html_attr_hook'}{$attr})
582 0 90 if (my $code = $self->html_error_formatter)
589 17 73 if ($error and length "$error")
591 13 4 $self->escape_html ? :
603 0 36 if (my $code = $self->html_error_formatter)
615 0 4 if (my $code = $self->html_error_formatter)
622 4 0 if ($error)
624 4 0 $self->escape_html ? :
636 0 2 if (my $code = $self->html_error_formatter)
656 932 565 if $boolean_attrs{'required'}
662 4560 18 if (exists $self->{'html_attrs'}{$attr})
667 4335 243 if (defined $value or exists $boolean_attrs{$attr}) { }
59 184 elsif (exists $required_attrs->{$attr}) { }
669 1658 2677 if ($boolean_attrs{$attr})
671 136 1522 if $value
675 0 2677 unless defined $value
676 249 2428 $value =~ /\W/ ? :
682 28 31 unless defined $value
683 0 59 $value =~ /\W/ ? :
688 385 1112 unless @html
708 442 107 if $boolean_attrs{'required'}
714 2361 10 if (exists $self->{'html_attrs'}{$attr})
719 2262 109 if (defined $value or exists $boolean_attrs{$attr}) { }
42 67 elsif (exists $required_attrs->{$attr}) { }
721 750 1512 if ($boolean_attrs{$attr})
723 0 52 $attr =~ /\W/ ? :
52 698 if $value
727 0 1512 unless defined $value
728 133 1379 $value =~ /\W/ ? :
734 15 27 unless defined $value
735 0 42 $value =~ /\W/ ? :
740 21 528 unless @html
754 870 494 if ($self->has_children or not $self->is_self_closing)
770 196 304 if ($self->has_children or not $self->is_self_closing)
787 14 17 unless ($class =~ /(?:^| )$new_class(?: |$)/)
789 6 8 $class ? :
798 1 1 ref $_[0] eq ref [] ? :
811 16 796 if ($class =~ s/(^| |\G)\Q$delete_class\E( |$)/$1$2/g)
829 2 1 ref $_[0] eq ref [] ? :
888 9 0 if (@_)
916 8102 1749 if $code
918 1749 0 unless $self->html_attr_is_valid($name) and $class->autoload_html_attr_methods
926 0 0 if $code
946 1 0 @_ ? :
950 0 2 if defined &$method
964 3 0 if ($arg eq ':customize') { }
1020 3 43 ref $_[0] && ref $_[0] eq 'HASH' ? :
1043 0 210 if (ref $arg eq 'HASH') { }
1058 210 12 if (defined &{$class . "::" . $method;})
1076 138 0 if (my $class = ref $self) { }
1081 135 3 if ($class->html_attr_is_valid($name) and $class->autoload_html_attr_methods)
1090 1 2 $class->html_attr_is_valid($name) ? :