| line |
true |
false |
branch |
|
36
|
0 |
12 |
if $_patched |
|
50
|
0 |
1 |
if (defined $_[2]->header('Connection') and $_[2]->header('Connection') eq 'Keep-Alive') |
|
58
|
0 |
0 |
$_[2]->header('Content-Length') && SOAP::Utils::bytelength($$data) == $_[2]->header('Content-Length') ? : |
|
61
|
0 |
0 |
$done++ ? : |
|
74
|
12 |
11 |
if (@_) |
|
80
|
11 |
154 |
if (@_) |
|
87
|
0 |
12 |
if ref $class |
|
89
|
12 |
0 |
unless (grep {$_ eq $SOAP::Transport::HTTP::Client::USERAGENT_CLASS;} @SOAP::Transport::HTTP::Client::ISA) |
|
93
|
0 |
12 |
unless eval "require $SOAP::Transport::HTTP::Client::USERAGENT_CLASS" |
|
99
|
12 |
0 |
if $SOAP::Constants::PATCH_HTTP_KEEPALIVE |
|
103
|
12 |
0 |
$class->can($_[0]) ? : |
|
109
|
0 |
12 |
unless $self->isa('LWP::UserAgent') |
|
121
|
0 |
12 |
ref $params eq 'ARRAY' ? : |
|
158
|
0 |
11 |
if ($parts) |
|
181
|
0 |
11 |
if exists $redirect{$endpoint} |
|
184
|
0 |
11 |
if exists $mpost{$endpoint} |
|
201
|
0 |
11 |
if ($] < 5.008) { } |
|
213
|
0 |
11 |
if $compressed |
|
218
|
0 |
11 |
if $ENV{'HTTP_proxy_user'} and $ENV{'HTTP_proxy_pass'} |
|
223
|
0 |
11 |
if ($method eq 'M-POST') { } |
|
227
|
0 |
0 |
if defined $action |
|
231
|
11 |
0 |
if defined $action |
|
238
|
0 |
11 |
if $self->options->{'is_compress'} |
|
242
|
0 |
11 |
if $compressed |
|
246
|
11 |
0 |
if (not $http_request->content_type) { } |
|
|
0 |
0 |
elsif (not $SOAP::Constants::DO_NOT_USE_CHARSET and $encoding) { } |
|
247
|
10 |
1 |
!$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding ? : |
|
259
|
0 |
0 |
unless $tmpType =~ /$addition/ |
|
267
|
0 |
11 |
if $ENV{'HTTP_proxy'} |
|
276
|
0 |
11 |
if ($self->http_response->code == 510 || $self->http_response->code == 501 and $method ne 'M-POST') { } |
|
|
0 |
11 |
elsif ($self->http_response->code == 415 and $compressed) { } |
|
298
|
0 |
11 |
if $self->http_response->previous and $self->http_response->previous->is_redirect |
|
308
|
0 |
11 |
if $$self{'_cookie_jar'} |
|
311
|
0 |
11 |
($self->http_response->content_encoding || '') =~ /\S/ ? : |
|
|
0 |
11 |
($self->http_response->content_encoding || '') =~ /\b$SOAP::Transport::HTTP::Client::COMPRESS\b/o && $self->options->{'is_compress'} ? : |
|
320
|
0 |
11 |
$self->http_response->content_type =~ m[^multipart/]i ? : |
|
341
|
0 |
0 |
if ref $self |
|
347
|
0 |
0 |
if $action and $action ne join('#', @_) and $action ne join('/', @_) and substr($_[0], -1, 1) ne '/' || $action ne join('', @_) |
|
367
|
0 |
0 |
@_ ? : |
|
378
|
0 |
0 |
if ($self->request->method eq 'POST') { } |
|
|
0 |
0 |
elsif ($self->request->method eq 'M-POST') { } |
|
382
|
0 |
0 |
unless $self->request->header('Man') =~ /^"$SOAP::Constants::NS_ENV";\s*ns\s*=\s*(\d+)/ |
|
403
|
0 |
0 |
if $compressed and not $self->options->{'is_compress'} or not $compressed and ($self->request->content_encoding || '') =~ /\S/ |
|
414
|
0 |
0 |
if not $SOAP::Constants::DO_NOT_CHECK_CONTENT_TYPE and $content_type and $content_type ne 'application/soap+xml' and $content_type ne 'text/xml' and $content_type ne 'application/dime' and not $content_type =~ m[^multipart/] |
|
426
|
0 |
0 |
if (defined $self->request->header('Expect') and $self->request->header('Expect') eq '100-Continue') |
|
433
|
0 |
0 |
$compressed ? : |
|
438
|
0 |
0 |
$self->request->content_type =~ m[^multipart/] ? : |
|
|
0 |
0 |
unless my $response = $self->SUPER::handle($self->request->content_type =~ m[^multipart/] ? join("\n", $self->request->headers_as_string, $content) : $content) |
|
460
|
0 |
0 |
if $response =~ /^<\?xml(?: version="1.0"| encoding="([^\"]+)")+\?>/ |
|
463
|
0 |
0 |
if $self->request->content_type eq 'multipart/form-data' |
|
476
|
0 |
0 |
if $compressed |
|
496
|
0 |
0 |
$compressed ? : |
|
|
0 |
0 |
!$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding ? : |
|
|
0 |
0 |
$] > 5.007 ? : |
|
500
|
0 |
0 |
if $is_multipart |
|
523
|
0 |
0 |
if ref $self |
|
550
|
0 |
0 |
if ($chunked) |
|
559
|
0 |
0 |
if (not $length) { } |
|
|
0 |
0 |
elsif (defined $SOAP::Constants::MAX_CONTENT_SIZE and $length > $SOAP::Constants::MAX_CONTENT_SIZE) { } |
|
567
|
0 |
0 |
if (exists $ENV{'EXPECT'} and $ENV{'EXPECT'} =~ /\b100-Continue\b/i) |
|
572
|
0 |
0 |
unless ($chunked) |
|
575
|
0 |
0 |
if (defined $ENV{'MOD_PERL'}) { } |
|
578
|
0 |
0 |
if length $content >= $length |
|
583
|
0 |
0 |
if length $content >= $length |
|
589
|
0 |
0 |
$1 =~ /SOAPACTION/ ? : |
|
|
0 |
0 |
/^HTTP_(.+)/i ? : |
|
607
|
0 |
0 |
defined $ENV{'SERVER_SOFTWARE'} && $ENV{'SERVER_SOFTWARE'} =~ /IIS/ ? : |
|
634
|
0 |
0 |
if ref $self |
|
640
|
0 |
0 |
$class->can($_[0]) ? : |
|
648
|
0 |
0 |
if not $self->SSL and grep /^SSL_/, @params |
|
650
|
0 |
0 |
unless $http_daemon->can('new') |
|
654
|
0 |
0 |
unless $$self{'_daemon'} = $http_daemon->new(@params) |
|
663
|
0 |
0 |
ref $params eq 'ARRAY' ? : |
|
676
|
0 |
0 |
if (@_) |
|
683
|
0 |
0 |
(shift())->SSL ? : |
|
687
|
0 |
0 |
if $method eq 'DESTROY' |
|
704
|
0 |
0 |
if ($@ and not $@ =~ /^SIGPIPE/) |
|
711
|
0 |
0 |
$c->can('shutdown') ? : |
|
729
|
0 |
0 |
unless (ref $self) |
|
740
|
0 |
0 |
if (defined $ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} >= 2) { } |
|
753
|
0 |
0 |
unless eval 'require mod_perl' |
|
755
|
0 |
0 |
unless defined $mod_perl::VERSION |
|
757
|
0 |
0 |
if ($mod_perl::VERSION < 1.99) { } |
|
784
|
0 |
0 |
unless ($r) |
|
785
|
0 |
0 |
if ($$self{'MOD_PERL_VERSION'} < 2) { } |
|
794
|
0 |
0 |
if ($$self{'MOD_PERL_VERSION'} < 2) { } |
|
804
|
0 |
0 |
if ($cont_len > 0) { } |
|
813
|
0 |
0 |
if $$self{'MOD_PERL_VERSION'} >= 2 |
|
819
|
0 |
0 |
if ($$self{'MOD_PERL_VERSION'} < 2) { } |
|
839
|
0 |
0 |
if ($$self{'MOD_PERL_VERSION'} < 2) { } |
|
847
|
0 |
0 |
if ($$self{'MOD_PERL_VERSION'} > 1) { } |
|
866
|
0 |
0 |
ref $self->$_ ? : |
|
|
0 |
0 |
$$config{$_} =~ /=>/ ? : |
|
|
0 |
0 |
if $self->can($_) |
|
905
|
0 |
0 |
if ref $class |