| line |
true |
false |
branch |
|
26
|
0 |
0 |
if (exists $args{$key} and !defined($args{$key}) || $args{$key} eq '') |
|
37
|
0 |
0 |
if ($sock) { } |
|
39
|
0 |
0 |
wantarray ? : |
|
51
|
0 |
1 |
if $host eq "0.0.0.0" |
|
52
|
0 |
1 |
if $host eq "::" |
|
53
|
1 |
0 |
if $self->sockdomain == 10 |
|
57
|
1 |
0 |
if $port != $self->_default_port |
|
100
|
0 |
0 |
if (do {
*$self
}->{'httpd_nomore'}) |
|
107
|
0 |
0 |
unless defined $buf |
|
119
|
0 |
0 |
if ($buf =~ /\012/) { } |
|
|
0 |
0 |
elsif (length $buf > 16384) { } |
|
120
|
0 |
0 |
if ($buf =~ m[^\w+[^\012]+HTTP/\d+\.\d+\015?\012]) { } |
|
121
|
0 |
0 |
if ($buf =~ /\015?\012\015?\012/) { } |
|
|
0 |
0 |
elsif (length $buf > 16384) { } |
|
139
|
0 |
0 |
if $DEBUG |
|
140
|
0 |
0 |
unless $self->_need_more($buf, $timeout, $fdset) |
|
142
|
0 |
0 |
unless ($buf =~ s[^(\S+)[ \t]+(\S+)(?:[ \t]+(HTTP/\d+\.\d+))?[^\012]*\012][]) |
|
151
|
0 |
0 |
if $method eq "CONNECT" |
|
158
|
0 |
0 |
if ($proto >= $HTTP_1_0) |
|
166
|
0 |
0 |
if (/^([^:\s]+)\s*:\s*(.*)/) { } |
|
|
0 |
0 |
elsif (/^\s+(.*)/) { } |
|
167
|
0 |
0 |
if $key |
|
177
|
0 |
0 |
if $key |
|
181
|
0 |
0 |
if ($proto >= $HTTP_1_1) { } |
|
182
|
0 |
0 |
if $conn and lc($conn) =~ /\bclose\b/ |
|
185
|
0 |
0 |
unless $conn and lc($conn) =~ /\bkeep-alive\b/ |
|
189
|
0 |
0 |
if ($only_headers) |
|
201
|
0 |
0 |
if (lc $e eq '100-continue') { } |
|
212
|
0 |
0 |
if ($tr_enc and lc $tr_enc eq 'chunked') { } |
|
|
0 |
0 |
elsif ($tr_enc) { } |
|
|
0 |
0 |
elsif ($ct_len) { } |
|
|
0 |
0 |
elsif ($ct_type and $ct_type =~ m[^multipart/\w+\s*;.*boundary\s*=\s*("?)(\w+)\1]i) { } |
|
218
|
0 |
0 |
if $DEBUG |
|
219
|
0 |
0 |
if ($buf =~ s/^([^\012]*)\012//) { } |
|
221
|
0 |
0 |
unless ($chunk_head =~ /^([0-9A-Fa-f]+)/) |
|
227
|
0 |
0 |
if $size == 0 |
|
232
|
0 |
0 |
if $DEBUG |
|
234
|
0 |
0 |
unless $n |
|
243
|
0 |
0 |
unless $self->_need_more($buf, $timeout, $fdset) |
|
255
|
0 |
0 |
if (not $buf =~ /\012/) { } |
|
258
|
0 |
0 |
unless $self->_need_more($buf, $timeout, $fdset) |
|
264
|
0 |
0 |
if (/^([\w\-]+)\s*:\s*(.*)/) { } |
|
|
0 |
0 |
elsif (/^\s+(.*)/) { } |
|
|
0 |
0 |
elsif (not length $_) { } |
|
265
|
0 |
0 |
if $key |
|
280
|
0 |
0 |
if $key |
|
303
|
0 |
0 |
unless (@vals == @nums) |
|
313
|
0 |
0 |
if $_ == $ct_len |
|
326
|
0 |
0 |
if $DEBUG |
|
328
|
0 |
0 |
unless $n |
|
331
|
0 |
0 |
if (length $buf > $ct_len) { } |
|
349
|
0 |
0 |
if $index >= 0 |
|
352
|
0 |
0 |
unless $self->_need_more($buf, $timeout, $fdset) |
|
368
|
0 |
0 |
if ($_[1]) |
|
370
|
0 |
0 |
if $DEBUG |
|
372
|
0 |
0 |
unless ($n) |
|
373
|
0 |
0 |
defined $n ? : |
|
377
|
0 |
0 |
if $DEBUG |
|
379
|
0 |
0 |
defined $n ? : |
|
|
0 |
0 |
unless $n |
|
386
|
0 |
0 |
if (@_) |
|
395
|
0 |
0 |
if (@_) |
|
408
|
0 |
4 |
unless m[^(?:HTTP/)?(\d+)\.(\d+)$]i |
|
430
|
0 |
0 |
if $self->antique_client |
|
444
|
0 |
0 |
if $self->antique_client |
|
448
|
0 |
0 |
if $product |
|
455
|
0 |
0 |
unless defined $v |
|
463
|
0 |
0 |
unless (ref $res) |
|
469
|
0 |
0 |
unless ($self->antique_client) |
|
472
|
0 |
0 |
if ($code =~ /^(1\d\d|[23]04)$/) { } |
|
|
0 |
0 |
elsif ($res->request and $res->request->method eq 'HEAD') { } |
|
|
0 |
0 |
elsif (ref $content eq 'CODE') { } |
|
|
0 |
0 |
elsif (length $content) { } |
|
483
|
0 |
0 |
if ($self->proto_ge('HTTP/1.1')) { } |
|
501
|
0 |
0 |
if ($self->head_request) { } |
|
|
0 |
0 |
elsif (ref $content eq 'CODE') { } |
|
|
0 |
0 |
elsif (length $content) { } |
|
508
|
0 |
0 |
unless defined $chunk and length $chunk |
|
509
|
0 |
0 |
if ($chunked) { } |
|
516
|
0 |
0 |
if $chunked |
|
526
|
0 |
0 |
unless &is_redirect($status) |
|
529
|
0 |
0 |
unless ref $loc |
|
533
|
0 |
0 |
if ($content) |
|
534
|
0 |
0 |
$content =~ /^\s*
|
|
538
|
0 |
0 |
if $content and not $self->head_request |
|
545
|
0 |
0 |
unless &is_error($status) |
|
553
|
0 |
0 |
unless ($self->antique_client) |
|
559
|
0 |
0 |
unless $self->head_request |
|
565
|
0 |
0 |
if (-d $file) { } |
|
|
0 |
0 |
elsif (-f _) { } |
|
572
|
0 |
0 |
unless sysopen F, $file, 0 |
|
576
|
0 |
0 |
unless ($self->antique_client) |
|
579
|
0 |
0 |
if $file_enc |
|
580
|
0 |
0 |
if $size |
|
581
|
0 |
0 |
if $mtime |
|
584
|
0 |
0 |
unless $self->head_request |
|
594
|
0 |
0 |
unless -d $dir |
|
601
|
5 |
0 |
unless (ref $file) |
|
602
|
3 |
2 |
unless open my $fh, "<", $file |
|
603
|
0 |
2 |
unless (binmode $fh) |
|
611
|
0 |
1 |
unless $n |
|
615
|
2 |
0 |
if $opened |
|
620
|
1 |
1 |
unless $cnt |