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 612 if keys %$leftover
93 0 6 if keys %$leftover
100 27 630 unless @param
102 8 622 if (ref $param[0] eq 'HASH') { }
106 319 303 unless defined $param[0] and substr($param[0], 0, 1) eq '-'
113 551 1713 ref $_ eq 'ARRAY' ? :
127 29 578 if ($a =~ /content/i) { }
36 542 elsif ($b =~ /content/i) { }
135 709 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 395 if @_ > 0 and ref $_[0] || defined $_[1] && $_[0] eq $CGI::DefaultClass
193 2 393 unless defined $todecode
195 0 393 if ($_EBCDIC) { }
210 39 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])/) { }