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')
419	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