Branch Coverage

blib/lib/SOAP/Transport/HTTP.pm
Criterion Covered Total %
branch 34 190 17.8


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