| line |
true |
false |
branch |
|
64
|
0 |
0 |
if (defined $val) |
|
75
|
0 |
0 |
if (defined $val) |
|
92
|
0 |
0 |
if ($$self{'DEBUG'}) |
|
131
|
0 |
0 |
if (defined $cbargs) |
|
143
|
0 |
0 |
if ($protocol ne 'http') |
|
153
|
0 |
0 |
unless $port |
|
156
|
0 |
0 |
$connecthost ? : |
|
158
|
0 |
0 |
$connectport ? : |
|
160
|
0 |
0 |
unless ($addr) |
|
164
|
0 |
0 |
if ($connecthost ne $host) |
|
173
|
0 |
0 |
if (defined $$self{'local_addr'}) |
|
175
|
0 |
0 |
if ($local_addr eq '0.0.0.0' or $local_addr eq '0') { } |
|
181
|
0 |
0 |
if (defined $$self{'local_port'}) |
|
185
|
0 |
0 |
unless bind FH, $paddr |
|
188
|
0 |
0 |
unless connect FH, $sin |
|
190
|
0 |
0 |
if ($^O ne 'MSWin32') |
|
194
|
0 |
0 |
if (defined $callback_func) |
|
198
|
0 |
0 |
if ($$self{'header_at_once'}) |
|
203
|
0 |
0 |
if ($$self{'HTTP11'}) { } |
|
212
|
0 |
0 |
if ($port != 80) { } |
|
217
|
0 |
0 |
unless (defined $self->get_req_header('Accept')) |
|
221
|
0 |
0 |
if ($method eq 'POST') |
|
237
|
0 |
0 |
if (defined $$self{'content'}) |
|
241
|
0 |
0 |
if (defined $callback_func) |
|
243
|
0 |
0 |
if (defined $ncontent_length) |
|
248
|
0 |
0 |
if ($content_length) |
|
252
|
0 |
0 |
if (defined $callback_func) |
|
258
|
0 |
0 |
if ($$self{'header_at_once'}) |
|
264
|
0 |
0 |
if (defined $callback_func) |
|
272
|
0 |
0 |
if (not $content_out and defined $$self{'content'}) |
|
277
|
0 |
0 |
if (defined $callback_func) |
|
292
|
0 |
0 |
if $$self{'DEBUG'} |
|
294
|
0 |
0 |
if ($$self{'DEBUG'}) |
|
303
|
0 |
0 |
if ($line == 1) |
|
306
|
0 |
0 |
if $$self{'DEBUG'} |
|
312
|
0 |
0 |
if ($headmode || $chunkmode eq 'entity-header' and $$data =~ /^[\r\n]*$/) |
|
314
|
0 |
0 |
if ($chunkmode) |
|
322
|
0 |
0 |
if (defined $te) |
|
324
|
0 |
0 |
if ($header =~ /chunked/i) |
|
331
|
0 |
0 |
if ($headmode or $chunkmode eq 'entity-header') { } |
|
|
0 |
0 |
elsif ($chunkmode) { } |
|
334
|
0 |
0 |
if (defined $var) |
|
341
|
0 |
0 |
if (not ref $hr) { } |
|
353
|
0 |
0 |
if ($chunkmode eq 'chunksize') { } |
|
|
0 |
0 |
elsif ($chunkmode eq 'chunk') { } |
|
|
0 |
0 |
elsif ($chunkmode eq 'ignorecrlf') { } |
|
359
|
0 |
0 |
if (length $chunksize > 0) { } |
|
361
|
0 |
0 |
unless ($chunksize =~ /^[a-f0-9]+$/i) |
|
362
|
0 |
0 |
if $$self{'DEBUG'} |
|
365
|
0 |
0 |
if $$self{'DEBUG'} |
|
366
|
0 |
0 |
if ($chunksize == 0) { } |
|
374
|
0 |
0 |
if $$self{'DEBUG'} |
|
380
|
0 |
0 |
if ($chunklength >= $chunksize) |
|
383
|
0 |
0 |
if ($chunklength > $chunksize) { } |
|
|
0 |
0 |
elsif ($chunklength == $chunksize and not $chunk =~ /$CRLF$/) { } |
|
405
|
0 |
0 |
if (defined $callback_func) |
|
420
|
0 |
0 |
if (not defined $data_callback || defined $callback_func) { } |
|
421
|
0 |
0 |
if $$self{'DEBUG'} |
|
425
|
0 |
0 |
if (defined $callback_func) { } |
|
430
|
0 |
0 |
if ($$self{'DEBUG'}) |
|
432
|
0 |
0 |
if (ref $newdata eq 'SCALAR') |
|
436
|
0 |
0 |
if (defined $newdata and ref $newdata eq 'SCALAR') |
|
447
|
0 |
0 |
unless defined $value |
|
449
|
0 |
0 |
if $$self{'DEBUG'} |
|
468
|
0 |
0 |
if ($exists = defined ${$$self{'headers'};}{lc $header}) |
|
517
|
0 |
0 |
unless ($host) |
|
584
|
0 |
0 |
if ($body) { } |
|
592
|
0 |
0 |
unless defined $$self{'headers'}{'Content-Type'} and $$self{'headers'}{'Content-Type'} |
|
603
|
0 |
0 |
if ($$self{'holdback'}) { } |
|
607
|
0 |
0 |
if (defined $$self{'HTTPWriteBuffer'}) |
|
617
|
0 |
0 |
unless defined $nbytes or $!{'EAGAIN'} |
|
627
|
0 |
0 |
if $$self{'DEBUG'} |
|
630
|
0 |
0 |
if ($headmode == 0 and $chunkmode eq '0' or $chunkmode eq 'chunk') { } |
|
631
|
0 |
0 |
$chunksize < $BLOCKSIZE ? : |
|
|
0 |
0 |
$chunkmode eq 'chunk' ? : |
|
638
|
0 |
0 |
if ($res) |
|
639
|
0 |
0 |
if ($$self{'DEBUG'}) |
|
655
|
0 |
0 |
if $$self{'DEBUG'} |
|
664
|
0 |
0 |
if ($nfound == 0) { } |
|
671
|
0 |
0 |
if $$self{'DEBUG'} |
|
674
|
0 |
0 |
if ($chars <= 0 and not $!{'EAGAIN'}) |
|
685
|
0 |
0 |
if ($nlat > -1) { } |
|
695
|
0 |
0 |
length $newline ? : |
|
704
|
0 |
0 |
if $$self{'DEBUG'} |
|
713
|
0 |
0 |
if ($nfound == 0) { } |
|
720
|
0 |
0 |
if $$self{'DEBUG'} |
|
723
|
0 |
0 |
if ($chars <= 0 and not $!{'EAGAIN'}) |
|
732
|
0 |
0 |
if (($buflen = length $$self{'HTTPReadBuffer'}) >= $bytes) { } |
|
735
|
0 |
0 |
if ($bytes + 1 < $buflen) { } |
|
744
|
0 |
0 |
length $newline ? : |
|
750
|
0 |
0 |
if (defined $str) { } |