Branch Coverage

blib/lib/CGI/Untaint.pm
Criterion Covered Total %
branch 30 34 88.2


line true false branch
88 2 8 if (@_ == 1) { }
5 3 elsif (@_ > 2) { }
91 1 1 ref $_[0] eq 'HASH' ? :
96 1 4 if ref $_[0] eq 'HASH'
102 1 2 ref $_[0] eq 'HASH' ? :
138 12 17 if ($@)
154 0 29 unless @as
155 0 29 unless @as == 1
165 5 24 unless defined(my $raw = $$self{'__data'}{$field})
174 6 18 if ($@)
175 6 0 if $@ =~ /^Died at/
183 17 1 unless ($skip_valid)
184 17 0 if (my $ref = $handler->can('is_valid'))
185 1 16 unless $handler->$ref
211 15 18 if defined $$self{'__loaded'}{$mod}
214 4 14 unless $mod->can('_untaint')
216 14 4 unless $@