Branch Coverage

lib/HTML/Accessors.pm
Criterion Covered Total %
branch 40 42 95.2


line true false branch
49 8 6 $_[0]->content_type =~ m[ / (.*) xml \z ]mx ? :
62 1 1 $self->is_xml ? :
2 2 $val eq $def ? :
65 0 4 if exists $classes->{$val}
67 2 2 if (exists $labels->{$val})
74 2 3 if ($options) { }
91 3 2 $self->is_xml ? :
95 0 5 if $args->{'onchange'}
101 1 1 $self->is_xml ? :
2 14 if $val =~ / \d+ /mx and $def =~ / \d+ /mx and $val == $def
103 1 1 $self->is_xml ? :
2 30 if not $val =~ / \d+ /mx && $def =~ / \d+ /mx and $val eq $def
108 28 4 unless exists $labels->{$val} and not defined $labels->{$val}
110 16 16 if $i % $cols == 0
132 3 4 if ($val and ref $val eq 'HASH')
134 3 4 if (exists $INP->{$elem})
136 2 1 if defined $args->{'default'}
137 1 2 unless defined $args->{'value'}
141 1 6 unless ($HTML::Tagset::isKnown{$elem})
147 3 3 if ($HTML::Tagset::emptyElement{$elem})
148 2 1 $self->is_xml ? :