Branch Coverage

blib/lib/HTML/DisableForm.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
31 1 4 if $option{'target'}
32 1 4 if $option{'readonly'}
40 8 2 unless defined $value
41 1 1 ref $value eq 'ARRAY' ? :
48 0 5 if (my $file = $option{'file'}) { }
5 0 elsif (my $scalarref = $option{'scalarref'}) { }
0 0 elsif (my $arrayref = $option{'arrayref'}) { }
59 33 24 unless $can_disable{$tagname}
60 3 21 if defined $$self{'target'} and not $$self{'current_form'}
61 9 12 if (my $current_form = $$self{'current_form'})
62 6 3 if (defined $$self{'target'})
63 3 3 $current_form eq $$self{'target'} ? :
65 3 0 if $$self{'ignore_forms'}{$current_form}
67 12 0 if ($$attr{'name'})
68 2 10 if $$self{'ignore_fields'}{$$attr{'name'}}
75 8 49 if $tagname eq 'form'
78 13 44 if ($self->_can_disable($tagname, $attr)) { }
81 9 26 if $key eq '/'
84 3 10 $$self{'readonly'} ? :
85 9 4 if $$attr{'/'}
94 8 33 if $tagname eq 'form' and exists $$self{'current_form'}