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 |