| line |
true |
false |
branch |
|
427
|
8 |
16 |
if (my $cb = shift @{$CO_SLOT{$host}[1];}) { } |
|
439
|
8 |
8 |
unless $CO_SLOT{$host}[0] |
|
459
|
0 |
0 |
if $jar->{'version'} != 2 |
|
464
|
0 |
0 |
unless ref $paths |
|
468
|
0 |
0 |
if (exists $kv->{'_expires'}) { } |
|
|
0 |
0 |
elsif ($session_end) { } |
|
470
|
0 |
0 |
if $anow > $kv->{'_expires'} |
|
476
|
0 |
0 |
unless %$cookies |
|
480
|
0 |
0 |
unless %$paths |
|
489
|
0 |
0 |
if $jar->{'version'} != 2 |
|
491
|
0 |
0 |
if $host =~ /[^\x00-\x7f]/u |
|
497
|
0 |
0 |
unless ref $paths |
|
500
|
0 |
0 |
unless $chost eq $host or ".$chost" eq substr($host, -1 - length($chost)) |
|
504
|
0 |
0 |
unless $cpath eq substr($path, 0, length $cpath) |
|
507
|
0 |
0 |
if $scheme ne 'https' and exists $kv->{'secure'} |
|
509
|
0 |
0 |
if (exists $kv->{'_expires'} and &AE::now() > $kv->{'_expires'}) |
|
516
|
0 |
0 |
if ($value =~ /[=;,[:space:]]/u) |
|
533
|
0 |
0 |
if $jar->{'version'} != 2 |
|
556
|
0 |
0 |
if (defined $1) { } |
|
|
0 |
0 |
elsif (defined $3) { } |
|
566
|
0 |
0 |
@kv ? : |
|
568
|
0 |
0 |
unless /\G\s*;/cgu |
|
571
|
0 |
0 |
unless @kv |
|
576
|
0 |
0 |
if (exists $kv{'max-age'}) { } |
|
|
0 |
0 |
elsif (exists $kv{'expires'}) { } |
|
588
|
0 |
0 |
if (exists $kv{'domain'}) { } |
|
593
|
0 |
0 |
if $cdom =~ /\.$/u |
|
597
|
0 |
0 |
$cdom =~ /\.[^.][^.]\.[^.][^.]$/u ? : |
|
|
0 |
0 |
if $ndots < ($cdom =~ /\.[^.][^.]\.[^.][^.]$/u ? 3 : 2) |
|
608
|
0 |
0 |
if /\G\s*,/cgu |
|
621
|
0 |
0 |
unless @{$KA_CACHE{$ka_key};} |
|
638
|
0 |
0 |
@ka ? : |
|
669
|
0 |
0 |
unless /\G$/u |
|
692
|
0 |
8 |
if $state->{'handle'} |
|
749
|
8 |
0 |
if $arg{'tls_ctx'} eq 'low' or not exists $arg{'tls_ctx'} |
|
750
|
0 |
8 |
if $arg{'tls_ctx'} eq 'high' |
|
754
|
0 |
8 |
if (my $hdr = $arg{'headers'}) |
|
762
|
0 |
8 |
if exists $arg{'Redirect'} |
|
764
|
0 |
8 |
exists $arg{'recurse'} ? : |
|
766
|
0 |
8 |
if $recurse < 0 |
|
769
|
0 |
8 |
exists $arg{'proxy'} ? : |
|
777
|
0 |
0 |
$uscheme eq 'https' ? : |
|
|
8 |
0 |
$uscheme eq 'http' ? : |
|
781
|
0 |
8 |
unless $uauthority =~ /^(?: .*\@ )? ([^\@]+?) (?: : (\d+) )?$/ux |
|
785
|
5 |
3 |
if defined $2 |
|
788
|
5 |
3 |
defined $2 ? : |
|
|
8 |
0 |
unless exists $hdr{'host'} |
|
791
|
0 |
8 |
if length $query |
|
796
|
0 |
8 |
if (my $jar = $arg{'cookie_jar'}) |
|
799
|
0 |
0 |
if @$cookies |
|
805
|
0 |
8 |
if ($proxy) { } |
|
808
|
0 |
0 |
unless defined $rscheme |
|
812
|
0 |
0 |
if $uscheme eq 'https' and $rscheme eq 'https' |
|
821
|
8 |
0 |
unless exists $hdr{'referer'} |
|
822
|
8 |
0 |
unless exists $hdr{'user-agent'} |
|
825
|
0 |
8 |
if length $arg{'body'} or $method ne 'GET' |
|
830
|
0 |
8 |
exists $arg{'persistent'} ? : |
|
831
|
0 |
8 |
exists $arg{'keepalive'} ? : |
|
837
|
8 |
0 |
$keepalive ? : |
|
|
8 |
0 |
$persistent ? : |
|
838
|
8 |
0 |
unless exists $hdr{'te'} |
|
850
|
0 |
0 |
if $uscheme eq 'https' and not exists $hdl->{'tls'} |
|
861
|
0 |
0 |
unless %state |
|
868
|
0 |
0 |
unless %state |
|
873
|
0 |
0 |
unless m[^HTTP/0*([0-9\.]+) \s+ ([0-9]{3}) (?: \s+ ([^\012]*) )? \012]cgiux |
|
882
|
0 |
0 |
if $2 eq 100 |
|
890
|
0 |
0 |
unless my $hdr = &_parse_hdr() |
|
899
|
0 |
0 |
if (exists $hdr{'location'}) |
|
902
|
0 |
0 |
if ($loc =~ m[^//]u) { } |
|
|
0 |
0 |
elsif ($loc eq '') { } |
|
|
0 |
0 |
elsif (not $loc =~ m[^(?: $ | [^:/?\#]+ : )]ux) { } |
|
911
|
0 |
0 |
if (not $loc =~ /^[.?#]/u) { } |
|
|
0 |
0 |
elsif (eval {
do {
require URI
}
}) { } |
|
914
|
0 |
0 |
unless ($loc =~ s[^/][]u) |
|
937
|
0 |
0 |
if ($recurse) |
|
946
|
0 |
0 |
if ($status == 301 or $status == 302 or $status == 303) { } |
|
|
0 |
0 |
elsif ($status == 307 or $status == 308) { } |
|
949
|
0 |
0 |
unless ($method eq 'HEAD') |
|
959
|
0 |
0 |
if ($state{'handle'}) |
|
961
|
0 |
0 |
$hdr{'HTTPVersion'} < 1.1 ? : |
|
|
0 |
0 |
if ($persistent and $_[3] and $hdr{'HTTPVersion'} < 1.1 ? $hdr{'connection'} =~ /\bkeep-?alive\b/iu : !($hdr{'connection'} =~ /\bclose\b/iu)) { } |
|
977
|
0 |
0 |
if (defined $_[1]) |
|
983
|
0 |
0 |
if ($arg{'cookie_jar'}) |
|
987
|
0 |
0 |
if ($redirect and exists $hdr{'location'}) { } |
|
1011
|
0 |
0 |
$chunked ? : |
|
1019
|
0 |
0 |
if (not $redirect and $arg{'on_header'} and not $arg{'on_header'}->(\%hdr)) { } |
|
|
0 |
0 |
elsif ($hdr{'Status'} =~ /^(?:1..|204|205|304)$/u or $method eq 'HEAD' or defined $len and $len == 0) { } |
|
|
0 |
0 |
elsif (not $redirect and $arg{'want_body_handle'}) { } |
|
|
0 |
0 |
elsif ($chunked) { } |
|
|
0 |
0 |
elsif (not $redirect and $arg{'on_body'}) { } |
|
1042
|
0 |
0 |
unless $_[1] =~ /^([0-9a-fA-F]+)/u |
|
1047
|
0 |
0 |
if ($len) { } |
|
1051
|
0 |
0 |
unless &$on_body($_[1], \%hdr) |
|
1055
|
0 |
0 |
if length $_[1] |
|
1064
|
0 |
0 |
if (length $_[1]) |
|
1068
|
0 |
0 |
unless my $hdr = &_parse_hdr() |
|
1083
|
0 |
0 |
if (defined $len) { } |
|
1087
|
0 |
0 |
unless $arg{'on_body'}->(delete $_[0]{'rbuf'}, \%hdr) |
|
1090
|
0 |
0 |
unless $len > 0 |
|
1098
|
0 |
0 |
unless $arg{'on_body'}->(delete $_[0]{'rbuf'}, \%hdr) |
|
1105
|
0 |
0 |
if (defined $len) { } |
|
1108
|
0 |
0 |
if $len <= length $_[0]{'rbuf'} |
|
1114
|
0 |
0 |
$! == 32 || !$! ? : |
|
1123
|
0 |
0 |
if ($was_persistent and $idempotent) { } |
|
1142
|
0 |
0 |
unless %state |
|
1169
|
8 |
0 |
unless my $fh = shift() |
|
1172
|
0 |
0 |
unless delete $state{'connect_guard'} |
|
1187
|
0 |
0 |
if ($proxy and $uscheme eq 'https') { } |
|
1191
|
0 |
0 |
exists $hdr{'proxy-authorization'} ? : |
|
1197
|
0 |
0 |
unless $_[1] =~ m[^HTTP/([0-9\.]+) \s+ ([0-9]{3}) (?: \s+ ([^\015\012]*) )?]iux |
|
1200
|
0 |
0 |
if ($2 == 200) { } |
|
1208
|
0 |
0 |
unless $proxy |
|
1217
|
0 |
8 |
unless $state{'connect_guard'} |
|
1221
|
0 |
8 |
if ($persistent and $KA_CACHE{$ka_key}) { } |
|
1241
|
0 |
8 |
if defined wantarray |
|
1398
|
0 |
0 |
if ($date =~ /^[A-Z][a-z][a-z]+, ([0-9][0-9]?)[\- ]([A-Z][a-z][a-z])[\- ]([0-9][0-9][0-9][0-9]) ([0-9][0-9]?):([0-9][0-9]?):([0-9][0-9]?) GMT$/u) { } |
|
|
0 |
0 |
elsif ($date =~ /^[A-Z][a-z][a-z]+, ([0-9][0-9]?)-([A-Z][a-z][a-z])-([0-9][0-9]) ([0-9][0-9]?):([0-9][0-9]?):([0-9][0-9]?) GMT$/u) { } |
|
|
0 |
0 |
elsif ($date =~ /^[A-Z][a-z][a-z]+ ([A-Z][a-z][a-z]) ([0-9 ]?[0-9]) ([0-9][0-9]?):([0-9][0-9]?):([0-9][0-9]?) ([0-9][0-9][0-9][0-9])$/u) { } |
|
1406
|
0 |
0 |
$3 < 69 ? : |
|
1415
|
0 |
0 |
if ($m eq $month[$_]) |
|
1425
|
0 |
3 |
if (length $_[0]) { } |
|
1426
|
0 |
0 |
unless $_[0] =~ m[^(http):// ([^:/]+) (?: : (\d*) )?]iux |