Branch Coverage

blib/lib/CGI/Util.pm
Criterion Covered Total %
branch 48 56 85.7


line true false branch
84 25 14 defined $CGI::Q ? :
39 609 if keys %$leftover
93 0 6 if keys %$leftover
100 27 627 unless @param
102 8 619 if (ref $param[0] eq 'HASH') { }
106 317 302 unless defined $param[0] and substr($param[0], 0, 1) eq '-'
113 549 1708 ref $_ eq 'ARRAY' ? :
127 19 590 if ($a =~ /content/i) { }
40 550 elsif ($b =~ /content/i) { }
135 708 43 if (exists $pos{$key}) { }
147 0 284 unless $attr and ref $attr and ref $attr eq 'HASH'
151 0 284 $do_not_quote ? :
164 372 15 $escape ? :
165 384 3 defined $attr->{$_} ? :
171 3 369 unless defined(my $toencode = shift())
191 0 392 if @_ > 0 and ref $_[0] || defined $_[1] && $_[0] eq $CGI::DefaultClass
193 2 390 unless defined $todecode
195 0 390 if ($_EBCDIC) { }
210 36 0 defined $1 ? :
232 12 0 if @_ > 1 and ref $_[0] || defined $_[1] && $_[0] eq $CGI::DefaultClass
234 19 351 unless defined $toencode
235 1 350 if utf8::is_utf8($toencode)
236 0 351 if ($_EBCDIC) { }
256 1 22 unless $time =~ /^\d+$/
261 8 14 if $format eq 'cookie'
291 17 11 if (not $time or lc $time eq 'now') { }
1 10 elsif ($time =~ /^\d+/) { }
9 1 elsif ($time =~ /^([+-]?(?:\d+|\d*\.\d*))([smhdMy])/) { }