Branch Coverage

lib/HTML/Accessors.pm
Criterion Covered Total %
branch 45 48 93.7


line true false branch
38 8 6 $_[0]->content_type =~ m[ / (.*) xml \z ]mx ? :
51 1 1 $self->is_xml ? :
2 2 $val eq $def ? :
54 0 4 if exists $$classes{$val}
56 2 2 if (exists $$labels{$val})
63 2 3 if ($options) { }
80 3 2 $self->is_xml ? :
84 0 5 if $$args{'onchange'}
90 1 1 $self->is_xml ? :
2 14 if $val =~ / \d+ /mx and $def =~ / \d+ /mx and $val == $def
92 1 1 $self->is_xml ? :
2 30 if not $val =~ / \d+ /mx && $def =~ / \d+ /mx and $val eq $def
94 28 4 unless exists $$labels{$val} and not defined $$labels{$val}
99 16 16 if $i % $cols == 0
121 3 4 if ($val and ref $val eq 'HASH')
123 3 4 if (exists $$INP{$elem})
125 2 1 if defined $$args{'default'}
126 1 2 unless defined $$args{'value'}
130 1 6 unless ($HTML::Tagset::isKnown{$elem})
136 3 3 if ($HTML::Tagset::emptyElement{$elem})
137 2 1 $self->is_xml ? :
148 7 1 ref $_[0] eq 'HASH' ? :
8 6 $_[0] ? :
152 0 3 unless $_[1]