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
105 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 ? :