Branch Coverage

blib/lib/HTML/Form/FileInput.pm

Criterion	Covered	Total	%
branch	18	22	81.8

line	true	false	branch
18	3	13	if @_
19	13	3	unless defined $old
26	2	13	if @_
33	0	13	if @_
39	1	13	if $form->method ne "POST" or $form->enctype ne "multipart/form-data"
44	0	13	unless defined $name
45	0	13	if $self->{'disabled'}
52	2	11	if (defined $content or grep /^Content$/i, keys %headers) { }
	1	10	elsif (not defined $file or length $file == 0) { }
53	0	2	unless defined $filename
62	7	5	if (ref $file eq "ARRAY")