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 |