Branch Coverage

lib/CGI/FormBuilder/Util.pm
Criterion Covered Total %
branch 60 78 76.9


line true false branch
125 38581 0 unless $DEBUG >= $_[0]
151 0 8 $DEBUG ? :
176 20 5624 unless defined $toencode
217 82 4337 if $TAGNAMES{$look}
222 789 3630 if $name eq 'input' or $name eq 'link'
237 1481 3067 ref $_[0] ? :
241 4071 12534 if ref $val or not defined $val
246 200 4931 if $OURATTR{$key} or $key =~ /^_/ or $key eq 'text' and $name ne 'body' or $key eq 'multiple' and $name ne 'select' or $key eq 'type' and $name eq 'select' or $key eq 'label' and ($name ne 'optgroup' and $name ne 'option') or $key eq 'title' and $name eq 'form'
254 270 4661 if $TAGNAMES{$key}
259 365 4183 if exists $html{'name'} and not exists $html{'id'}
261 129 4419 wantarray ? :
312 160 700 if $test eq lc $_
333 767 2180 unless defined $data
334 1009 1171 if (my $ref = ref $data)
335 962 47 if ($ref eq 'ARRAY') { }
47 0 elsif ($ref eq 'HASH') { }
336 962 0 wantarray ? :
338 47 0 wantarray ? :
360 398 1750 if ref $_[0] and not wantarray
362 0 1750 if @_ and @_ % 2 != 0
365 156 1594 wantarray ? :
381 0 0 if ref $_[0] and not wantarray
382 0 0 wantarray ? :
410 246 250 if (my $ref = ref $opt) { }
411 4 242 if ($ref eq 'CODE')
417 0 0 ref $$opt{$_} eq 'ARRAY' ? :
420 20 1211 ref $_ eq 'HASH' ? :
0 246 $ref eq 'HASH' ? :
450 6 12 if ($sort eq 'alpha' or $sort eq 'name' or $sort eq 'NAME' or $sort eq 1) { }
6 6 elsif ($sort eq 'numeric' or $sort eq 'num' or $sort eq 'NUM') { }
0 6 elsif ($sort eq 'LABELNAME' or $sort eq 'LABEL') { }
0 6 elsif ($sort eq 'LABELNUM') { }
6 0 elsif (ref $sort eq 'CODE') { }
477 206 707 ref $opt eq 'ARRAY' ? :
478 913 0 wantarray ? :
492 166 1585 if ($ref and $ref eq 'HASH') { }
126 1459 elsif ($ref and $ref eq 'ARRAY') { }
495 69 57 ismember($name, @$from) ? :
512 0 14 unless $prog