Branch Coverage

blib/lib/CGI/Struct.pm
Criterion Covered Total %
branch 43 48 89.5


line true false branch
303 1 17 if $conf and $$conf{'nodot'}
306 17 1 unless exists $$conf{'nullsplit'}
309 17 1 unless exists $$conf{'dclone'}
310 0 3 @_ > 1 ? :
311 17 1 if $$conf{'dclone'}
318 13 92 unless ($k =~ /[$delims]/)
320 5 8 ref $$iv{$k} ? :
321 1 11 if $$conf{'nullsplit'} and ref $nval eq '' and $nval =~ /\0/
329 1 91 if ($k =~ /^[$delims]/)
366 0 182 if (length $kps[$i] != 1 or not $kps[$i] =~ /^[$delims]$/)
382 5 177 if ($dcorr{$sdel} and $dcorr{$sdel} ne substr($sname, -1))
388 155 22 if $dcorr{$sdel}
391 7 170 unless (defined $sname and length $sname)
395 3 4 if ($i > $#kps and $dtypes{$sdel} eq 'array')
407 2 168 if ($dtypes{$sdel} eq 'array' and not $sname =~ /^\d+$/)
420 70 98 if ($stype eq 'array') { }
98 0 elsif ($stype eq 'hash') { }
428 1 167 unless (ref $$p eq uc $stype)
438 69 98 if ($stype eq 'array') { }
98 0 elsif ($stype eq 'hash') { }
453 4 75 ref $$iv{$k} ? :
454 1 77 if $$conf{'nullsplit'} and ref $nval eq '' and $nval =~ /\0/
456 1 78 if ($autoarr and $nval and ref $nval ne 'ARRAY') { }
466 18 0 if $errs