Branch Coverage

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


line true false branch
213 0 0 if $page eq ''
214 0 0 unless my($hdr, $data) = content($page, $self->ID . '-' . $spec)
222 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') { }
238 0 0 unless $hdr =~ s/\r\n\z//
274 0 0 $1 == 64 ? :
279 0 0 unless @chunks
314 0 0 if defined $clen
317 0 0 $hdr =~ /^Transfer-Encoding:/im ? :
318 0 0 if $te eq 'chunked' and not @chunks
319 0 0 if (@chunks)
322 0 0 if ($chunkmod{'chunk-ext-chunk'}) { }
0 0 elsif ($chunkmod{'chunk-ext-junk'}) { }
327 0 0 if $chunkmod{'nofinal'} and not $chunks[-1][0]
330 0 0 if ($chunkmod{'eof-inchunk'})
331 0 0 unless $chunks[-1][0]
336 0 0 unless defined $finalchunk
338 0 0 ref $sizefmt ? :
0 0 $_->[0] ? :
352 0 0 $w eq 'gzip' ? :