| line |
true |
false |
branch |
|
30
|
0 |
0 |
unless $$self{'IMHS_handler'} = $$args{'handler'} |
|
67
|
0 |
0 |
if $te eq '8bit' |
|
70
|
0 |
0 |
if ($te ne 'chunked') |
|
75
|
0 |
0 |
unless my($starter, $len) = $$refdata =~ /^((\S+)\r?\n)/ |
|
76
|
0 |
0 |
unless ($len =~ /^[0-9a-fA-F]+$/) |
|
84
|
0 |
0 |
if length $$refdata < $chunk_length |
|
86
|
0 |
0 |
if ($need != 0) |
|
91
|
0 |
0 |
unless $$refdata =~ /\n\r?\n/ |
|
105
|
0 |
0 |
if (my $waiting = shift @{$$self{'IMHS_sent'};}) |
|
111
|
0 |
0 |
if $resp |
|
114
|
0 |
0 |
unless ($resp) |
|
117
|
0 |
0 |
if (my $expect = $headers->header('Expect')) |
|
118
|
0 |
0 |
lc $expect ne '100-continue' ? : |
|
129
|
0 |
0 |
if @$queue == 1 |
|
148
|
0 |
0 |
if ($resp) { } |
|
177
|
0 |
0 |
unless $content |
|
179
|
0 |
0 |
if (ref $content eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $content eq 'SCALAR') { } |
|
189
|
0 |
0 |
defined $text && length $text ? : |
|
203
|
0 |
0 |
unless is_redirect $status |
|
207
|
0 |
0 |
if (defined $content and length $content) |
|
208
|
0 |
0 |
$content =~ /^\s*\
|