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'}
360 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('', @_)
414 0 0 0 $compressed && eval { do { require Compress::Zlib } }
418 0 0 0 $compressed and not $self->options->{'is_compress'}
0 0 0 not $compressed and ($self->request->content_encoding || '') =~ /\S/
429 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/]
441 0 0 0 defined $self->request->header('Expect') and $self->request->header('Expect') eq '100-Continue'
483 0 0 0 exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
485 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)
511 0 0 0 !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding
574 0 0 0 defined $SOAP::Constants::MAX_CONTENT_SIZE and $length > $SOAP::Constants::MAX_CONTENT_SIZE
582 0 0 0 exists $ENV{'EXPECT'} and $ENV{'EXPECT'} =~ /\b100-Continue\b/i
622 0 0 0 defined $ENV{'SERVER_SOFTWARE'} && $ENV{'SERVER_SOFTWARE'} =~ /IIS/
663 0 0 0 not $self->SSL and grep /^SSL_/, @params
719 0 0 0 $@ and not $@ =~ /^SIGPIPE/
755 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 || ''
359 0 0 shift() || ''
394 0 0 $self->request->header('SOAPAction') || undef
404 0 0 $self->request->header("$1-SOAPAction") || undef
411 0 0 $self->request->content_encoding || ''
418 0 0 $self->request->content_encoding || ''
424 0 0 $self->request->content_type || ''
555 0 0 $ENV{'CONTENT_LENGTH'} || 0
559 0 0 defined $ENV{'HTTP_TRANSFER_ENCODING'} && $ENV{'HTTP_TRANSFER_ENCODING'} =~ /^chunked.*$/ || 0
607 0 0 $ENV{'REQUEST_METHOD'} || ''
622 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
360 0 0 0 substr($_[0], -1, 1) ne '/' || $action ne join('', @_)
414 0 0 0 $self->options->{'is_compress'} ||= $compressed && eval { do { require Compress::Zlib } }
418 0 0 0 $compressed and not $self->options->{'is_compress'} or not $compressed and ($self->request->content_encoding || '') =~ /\S/
483 0 0 0 $self->options->{'is_compress'} ||= exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
540 0 0 0 ref $self || $self
665 0 0 0 eval "require $http_daemon" or Carp::croak($@)
745 0 0 0 ref $self || $self