Branch Coverage

blib/lib/HTML/Transmorgify/FormChecksum.pm
Criterion Covered Total %
branch 58 110 52.7


line true false branch
43 0 4 if $closed
53 0 18 if $attr->static('disabled')
57 2 0 if $id and !defined($name) || $name ne $id
66 0 0 if $closed
67 0 0 if $tattr->static('disabled')
80 0 2 if $sattr->static('disabled')
90 2 2 if (defined $oattr->raw('value')) { }
2 0 elsif (not $closed) { }
119 0 15 if $input->boolean('disabled')
130 12 3 if ($tag eq 'input') { }
0 3 elsif ($tag eq 'button') { }
2 1 elsif ($tag eq 'select') { }
1 0 elsif ($tag eq 'textarea') { }
131 3 9 if ($type eq 'hidden') { }
3 6 elsif ($type eq 'radio') { }
5 1 elsif ($type eq 'submit') { }
0 1 elsif ($type eq 'image') { }
1 0 elsif ($type eq 'checkbox') { }
0 0 elsif ($type eq 'password' or $type eq 'text' or not $type) { }
0 0 elsif ($type eq 'file') { }
133 0 3 unless defined $value
137 0 3 unless defined $value
140 0 3 if ($readonly)
142 0 0 if $input->get('checked')
145 0 3 if $input->get('checked')
148 0 5 unless defined $value
156 1 0 unless defined $value
157 0 1 if ($readonly) { }
165 0 0 if ($readonly)
175 0 0 if ($type eq 'submit') { }
0 0 elsif ($type eq 'button') { }
189 2 2 if ($obuf) { }
198 0 4 if $oattr->get('selected')
201 2 0 if ($input->boolean('multiple', undef, 0))
205 0 1 if ($readonly)
220 0 7 if ($can_collapse{$p} and scalar keys %{$pval{$p};} == 1)
225 0 7 unless (keys %{$pval{$p};})
251 0 3 if ($HTML::Transmorgify::debug)
261 0 4 if $HTML::Transmorgify::debug and $HTML::Transmorgify::variables{' secret'}
262 0 4 if $HTML::Transmorgify::debug and not $HTML::Transmorgify::variables{' secret'}
271 3 1 $HTML::Transmorgify::variables{' secret'} ? :
286 1 3 unless defined $secret
288 0 3 unless defined $$formdata{' constraint'}
289 0 3 unless defined $$formdata{' csum'}
297 7 4 unless $vtypes{$_} eq 'm'
312 0 3 if ($HTML::Transmorgify::debug)
313 0 0 unless $vtypes{$_} eq 'm'
321 0 3 unless $csum eq $$formdata{' csum'}
325 6 11 if $k =~ /^ /
326 0 11 unless $vtypes{$k}
328 0 11 if ref $val and !uc($vtypes{$k}) eq $vtypes{$k}
330 7 4 if ($vtypes{$k} eq 'm' or $vtypes{$k} eq 'M') { }
331 0 7 ref $val ? :
336 0 7 unless $pval{$k}{$v}
339 0 4 if ref $val