| line |
true |
false |
branch |
|
130
|
29 |
140 |
unless defined $host |
|
132
|
43 |
97 |
defined $port ? : |
|
|
55 |
85 |
defined $pathquery ? : |
|
144
|
0 |
0 |
if ($host =~ /\A\[v/) |
|
157
|
0 |
0 |
if ($host =~ /\A\[/) |
|
158
|
0 |
0 |
unless $socket_class eq 'IO::Socket::IP' |
|
161
|
0 |
0 |
$host =~ /\A\[(.*)\]\z/s ? : |
|
162
|
0 |
0 |
unless $port >= 1 and $port <= 65535 |
|
182
|
0 |
0 |
$writing ? : |
|
|
0 |
0 |
$writing ? : |
|
184
|
0 |
0 |
$s ? : |
|
|
0 |
0 |
unless $s >= 1 |
|
191
|
0 |
0 |
unless defined $n |
|
192
|
0 |
0 |
if $n != 0 |
|
193
|
0 |
0 |
unless $eof_ok |
|
200
|
0 |
0 |
if $$rbufp =~ s/\A(.*?)\r?\n//s |
|
214
|
0 |
0 |
if ($l =~ /\A[ \t]/) |
|
215
|
0 |
0 |
unless defined $curhdr |
|
220
|
0 |
0 |
if (defined $curhdr) |
|
221
|
0 |
0 |
unless $curhdr =~ /\A($token_rx)$lws_rx:(.*)\z/so |
|
226
|
0 |
0 |
exists $h->{$hname} ? : |
|
228
|
0 |
0 |
if $l eq '' |
|
240
|
0 |
0 |
$params->{'port'} == 80 ? : |
|
250
|
0 |
0 |
unless defined $n |
|
259
|
0 |
0 |
unless $l =~ m[\A
HTTP/[0-9]+\.[0-9]+[\ \t]+
([0-9]{3}\ [\ -\~\x80-\xff]*)
\z]x |
|
266
|
0 |
0 |
unless $status =~ /\A(?:[13]|200)/ |
|
269
|
0 |
0 |
unless ($status =~ /\A1/) |
|
275
|
0 |
0 |
unless $response{'status'} =~ /\A200/ |
|
277
|
0 |
0 |
exists $response{'headers'}{'content-encoding'} ? : |
|
278
|
0 |
0 |
unless $ce =~ /\A${lws_rx}identity$lws_rx\z/o |
|
281
|
0 |
0 |
exists $response{'headers'}{'transfer-encoding'} ? : |
|
282
|
0 |
0 |
if ($te =~ /\A${lws_rx}chunked$lws_rx\z/o) { } |
|
|
0 |
0 |
elsif (not $te =~ /\A${lws_rx}identity$lws_rx\z/o) { } |
|
|
0 |
0 |
elsif (exists $response{'headers'}{'content-length'}) { } |
|
285
|
0 |
0 |
unless &_recv_line($conn, \$rbuf) =~ /\A
([0-9A-Fa-f]+)$lws_rx
(?>
;$lws_rx$token_rx$lws_rx
(?>\=$lws_rx
(?:$token_rx|$quoted_string_rx)
$lws_rx
)?
)*
\z/ox |
|
297
|
0 |
0 |
if $csize eq '' |
|
298
|
0 |
0 |
unless length $csize <= 8 |
|
304
|
0 |
0 |
unless &_recv_line($conn, \$rbuf) eq '' |
|
311
|
0 |
0 |
unless $response{'headers'}{'content-length'} =~ /\A$lws_rx([0-9]+)$lws_rx\z/o |
|
315
|
0 |
0 |
unless $body_length < 4294967295 |
|
327
|
0 |
0 |
if (exists $response{'headers'}{'content-md5'}) |
|
328
|
0 |
0 |
unless $response{'headers'}{'content-md5'} =~ m[\A$lws_rx([A-Za-z0-9\+/]{21}[AQgw])\=\=$lws_rx\z]o |
|
332
|
0 |
0 |
unless (defined $loaded_digest_md5) |
|
333
|
0 |
0 |
eval {
do {
local $SIG{'__DIE__'};
require Digest::MD5;
'Digest::MD5'->VERSION(2.17);
1
}
} ? : |
|
339
|
0 |
0 |
if ($loaded_digest_md5) |
|
340
|
0 |
0 |
unless Digest::MD5::md5_base64($response{'body'}) eq $digest |
|
353
|
0 |
0 |
if $response->{'status'} =~ /\A200/ |
|
356
|
0 |
0 |
unless defined $loc |
|
357
|
0 |
0 |
if ($loc =~ /\A$lws_rx($http_url_rx)$lws_rx\z/o) { } |
|
|
0 |
0 |
elsif ($loc =~ /\A$lws_rx($path_and_query_rx)$lws_rx\z/o) { } |
|
366
|
0 |
0 |
if exists $seen{$url} |