Condition Coverage

blib/lib/SOAP/Transport/HTTP.pm
Criterion Covered Total %
condition 15 150 10.0


and 3 conditions

line !l l&&!r l&&r condition
50 0 1 0 defined $_[2]->header('Connection') and $_[2]->header('Connection') eq 'Keep-Alive'
58 0 0 0 $_[2]->header('Content-Length') && SOAP::Utils::bytelength($$data) == $_[2]->header('Content-Length')
151 11 0 0 exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
178 11 0 0 !exists($nocompress{$endpoint}) && $self->options->{'is_compress'} && ($self->options->{'compress_threshold'} || 0) < length $envelope
226 11 0 0 $ENV{'HTTP_proxy_user'} and $ENV{'HTTP_proxy_pass'}
254 0 0 0 not $SOAP::Constants::DO_NOT_USE_CHARSET and $encoding
255 1 0 10 !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding
284 11 0 0 $self->http_response->code == 510 || $self->http_response->code == 501 and $method ne 'M-POST'
11 0 0 $self->http_response->code == 415 and $compressed
306 11 0 0 $self->http_response->previous and $self->http_response->previous->is_redirect
319 11 0 0 ($self->http_response->content_encoding || '') =~ /\b$SOAP::Transport::HTTP::Client::COMPRESS\b/o && $self->options->{'is_compress'}
355 0 0 0 $action and $action ne join('#', @_)
0 0 0 $action and $action ne join('#', @_) and $action ne join('/', @_)
0 0 0 $action and $action ne join('#', @_) and $action ne join('/', @_) and substr($_[0], -1, 1) ne '/' || $action ne join('', @_)
407 0 0 0 $compressed && eval { do { require Compress::Zlib } }
411 0 0 0 $compressed and not $self->options->{'is_compress'}
0 0 0 not $compressed and ($self->request->content_encoding || '') =~ /\S/
422 0 0 0 not $SOAP::Constants::DO_NOT_CHECK_CONTENT_TYPE and $content_type
0 0 0 not $SOAP::Constants::DO_NOT_CHECK_CONTENT_TYPE and $content_type and $content_type ne 'application/soap+xml'
0 0 0 not $SOAP::Constants::DO_NOT_CHECK_CONTENT_TYPE and $content_type and $content_type ne 'application/soap+xml' and $content_type ne 'text/xml'
0 0 0 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'
0 0 0 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/]
434 0 0 0 defined $self->request->header('Expect') and $self->request->header('Expect') eq '100-Continue'
476 0 0 0 exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
478 0 0 0 $self->options->{'is_compress'} && grep(/\b($SOAP::Transport::HTTP::Server::COMPRESS|\*)\b/, $self->request->header('Accept-Encoding')) && ($self->options->{'compress_threshold'} || 0) < SOAP::Utils::bytelength($response)
504 0 0 0 !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding
567 0 0 0 defined $SOAP::Constants::MAX_CONTENT_SIZE and $length > $SOAP::Constants::MAX_CONTENT_SIZE
575 0 0 0 exists $ENV{'EXPECT'} and $ENV{'EXPECT'} =~ /\b100-Continue\b/i
615 0 0 0 defined $ENV{'SERVER_SOFTWARE'} && $ENV{'SERVER_SOFTWARE'} =~ /IIS/
656 0 0 0 not $self->SSL and grep /^SSL_/, @params
712 0 0 0 $@ and not $@ =~ /^SIGPIPE/
748 0 0 0 defined $ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} >= 2

or 2 conditions

line l !l condition
142 11 0 $encoding ||= 'UTF-8'
319 0 11 $self->http_response->content_encoding || ''
354 0 0 shift() || ''
387 0 0 $self->request->header('SOAPAction') || undef
397 0 0 $self->request->header("$1-SOAPAction") || undef
404 0 0 $self->request->content_encoding || ''
411 0 0 $self->request->content_encoding || ''
417 0 0 $self->request->content_type || ''
548 0 0 $ENV{'CONTENT_LENGTH'} || 0
552 0 0 defined $ENV{'HTTP_TRANSFER_ENCODING'} && $ENV{'HTTP_TRANSFER_ENCODING'} =~ /^chunked.*$/ || 0
600 0 0 $ENV{'REQUEST_METHOD'} || ''
615 0 0 $ENV{'SERVER_PROTOCOL'} || 'HTTP/1.0'

or 3 conditions

line l !l&&r !l&&!r condition
144 0 11 0 $endpoint ||= $self->endpoint
151 0 0 11 $self->options->{'is_compress'} ||= exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
284 0 0 11 $self->http_response->code == 510 || $self->http_response->code == 501
355 0 0 0 substr($_[0], -1, 1) ne '/' || $action ne join('', @_)
407 0 0 0 $self->options->{'is_compress'} ||= $compressed && eval { do { require Compress::Zlib } }
411 0 0 0 $compressed and not $self->options->{'is_compress'} or not $compressed and ($self->request->content_encoding || '') =~ /\S/
476 0 0 0 $self->options->{'is_compress'} ||= exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
533 0 0 0 ref $self || $self
658 0 0 0 eval "require $http_daemon" or Carp::croak($@)
738 0 0 0 ref $self || $self