Branch Coverage

blib/lib/App/DubiousHTTP/Tests/Chunked.pm
Criterion Covered Total %
branch 0 82 0.0


line true false branch
215 0 0 if $page eq ''
216 0 0 unless my($hdr, $data) = content($page, $self->ID . '-' . $spec)
224 0 0 if (/^(x|-|nl|lf|cr)*chunked(x|-|nl|lf|cr)*$/i) { }
0 0 elsif (/^(space|tab|cr|colon)-colon-chunked$/) { }
0 0 elsif (my($crlf) = /^((?:lf|cr|x)+)only-chunked$/) { }
0 0 elsif ($_ eq '1chunk') { }
0 0 elsif ($_ eq 'chu') { }
0 0 elsif ($_ eq 'ce-chunked') { }
0 0 elsif ($_ =~ /^clen(\d+)?$/) { }
0 0 elsif ($_ eq 'http10') { }
0 0 elsif ($_ =~ m[^HTTP/\S+]i) { }
0 0 elsif ($_ eq 'do_clen') { }
0 0 elsif ($_ eq 'do_chunked') { }
0 0 elsif ($_ eq 'chunked-semicolon') { }
0 0 elsif ($_ eq 'rfc2047') { }
0 0 elsif ($_ eq 'xte') { }
0 0 elsif (/^(chunk-ext-|nofinal$|eof-inchunk$)/) { }
0 0 elsif (my($eol) = /^chunk-((?:lf|cr)+)$/) { }
0 0 elsif (/^(32|64)-size\z/) { }
0 0 elsif (/^(-|space|cr|lf|tab|x|\\[0-7]{3})*(0*)(uc)?size(-|space|cr|lf|tab|x|\\[0-7]{3})*$/) { }
0 0 elsif (/((?:space|tab|cr|lf)*)-before-chunks/) { }
0 0 elsif (/^final=(.*)$/) { }
0 0 elsif (/^finalchunk=(.*)$/) { }
0 0 elsif ($_ eq 'addjunk') { }
0 0 elsif ($_ eq 'gzip') { }
240 0 0 unless $hdr =~ s/\r\n\z//
276 0 0 $1 == 64 ? :
281 0 0 unless @chunks
316 0 0 if defined $clen
319 0 0 $hdr =~ /^Transfer-Encoding:/im ? :
320 0 0 if $te eq 'chunked' and not @chunks
321 0 0 if (@chunks)
324 0 0 if ($chunkmod{'chunk-ext-chunk'}) { }
0 0 elsif ($chunkmod{'chunk-ext-junk'}) { }
329 0 0 if $chunkmod{'nofinal'} and not $chunks[-1][0]
332 0 0 if ($chunkmod{'eof-inchunk'})
333 0 0 unless $chunks[-1][0]
338 0 0 unless defined $finalchunk
340 0 0 ref $sizefmt ? :
0 0 $_->[0] ? :
354 0 0 $w eq 'gzip' ? :