Branch Coverage

blib/lib/CGI/Simple/Util.pm
Criterion Covered Total %
branch 55 96 57.3


line true false branch
15 24 146 unless @params
16 0 146 if (ref $params[0] eq 'HASH') { }
19 22 124 unless $params[0] =~ /^-/
25 180 586 ref $_ eq 'ARRAY' ? :
32 355 16 if (exists $pos{$key}) { }
38 16 108 if %leftover
45 0 16 unless $attref and ref $attref eq 'HASH'
52 16 0 $escape ? :
54 16 0 defined $value ? :
70 11 25 unless $time =~ /^\d+$/
74 5 20 $format eq 'cookie' ? :
105 20 16 if (not $time or lc $time eq 'now') { }
0 16 elsif ($time =~ /^\d+/) { }
5 11 elsif ($time =~ /^([+-]?(?:\d+|\d*\.\d*))([mhdMy]?)/) { }
119 2 32 unless defined $escape
126 0 32 if ($text)
137 10 94 unless defined $unescape
144 0 0 /^#x([0-9a-f]+)$/i && $ebcdic ? :
0 0 /^#x([0-9a-f]+)$/i && $latin ? :
0 0 /^#(\d+)$/ && $ebcdic ? :
8 0 /^#(\d+)$/ && $latin ? :
4 8 /^lt$/i ? :
4 12 /^gt$/i ? :
4 16 /^quot$/i ? :
6 20 /^amp$/i ? :
160 0 151 unless defined $toencode
161 0 151 if ($$UTIL{'ebcdic'}) { }
174 0 85 unless defined $todecode
176 0 85 if ($$UTIL{'ebcdic'}) { }
181 45 0 defined $1 ? :
188 0 0 if ($c < 128) { }
0 0 elsif ($c < 2048) { }
0 0 elsif ($c < 65536) { }
0 0 elsif ($c < 2097152) { }
0 0 elsif ($c < 67108864) { }
0 0 elsif ($c < 2147483648) { }
250 4 43 if $charset
258 0 11 if $OS
260 11 0 unless ($OS)
261 0 11 unless ($OS = $^O)
265 0 11 if ($OS =~ /Win/i) { }
0 11 elsif ($OS =~ /vms/i) { }
0 11 elsif ($OS =~ /bsdos/i) { }
0 11 elsif ($OS =~ /dos/i) { }
0 11 elsif ($OS =~ /^MacOS$/i) { }
0 11 elsif ($OS =~ /os2/i) { }
286 0 11 if exists $$self{'ebcdic'}
288 0 11 if ($$self{'ebcdic'})