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')
143 11 0 0 exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
170 11 0 0 !exists($nocompress{$endpoint}) && $self->options->{'is_compress'} && ($self->options->{'compress_threshold'} || 0) < length $envelope
218 11 0 0 $ENV{'HTTP_proxy_user'} and $ENV{'HTTP_proxy_pass'}
246 0 0 0 not $SOAP::Constants::DO_NOT_USE_CHARSET and $encoding
247 1 0 10 !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding
276 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
298 11 0 0 $self->http_response->previous and $self->http_response->previous->is_redirect
311 11 0 0 ($self->http_response->content_encoding || '') =~ /\b$SOAP::Transport::HTTP::Client::COMPRESS\b/o && $self->options->{'is_compress'}
347 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('', @_)
399 0 0 0 $compressed && eval { do { require Compress::Zlib } }
403 0 0 0 $compressed and not $self->options->{'is_compress'}
0 0 0 not $compressed and ($self->request->content_encoding || '') =~ /\S/
414 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/]
426 0 0 0 defined $self->request->header('Expect') and $self->request->header('Expect') eq '100-Continue'
468 0 0 0 exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
470 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)
496 0 0 0 !$SOAP::Constants::DO_NOT_USE_CHARSET && $encoding
559 0 0 0 defined $SOAP::Constants::MAX_CONTENT_SIZE and $length > $SOAP::Constants::MAX_CONTENT_SIZE
567 0 0 0 exists $ENV{'EXPECT'} and $ENV{'EXPECT'} =~ /\b100-Continue\b/i
607 0 0 0 defined $ENV{'SERVER_SOFTWARE'} && $ENV{'SERVER_SOFTWARE'} =~ /IIS/
648 0 0 0 not $self->SSL and grep /^SSL_/, @params
704 0 0 0 $@ and not $@ =~ /^SIGPIPE/
740 0 0 0 defined $ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} >= 2

or 2 conditions

line l !l condition
134 11 0 $encoding ||= 'UTF-8'
311 0 11 $self->http_response->content_encoding || ''
346 0 0 shift() || ''
379 0 0 $self->request->header('SOAPAction') || undef
389 0 0 $self->request->header("$1-SOAPAction") || undef
396 0 0 $self->request->content_encoding || ''
403 0 0 $self->request->content_encoding || ''
409 0 0 $self->request->content_type || ''
540 0 0 $ENV{'CONTENT_LENGTH'} || 0
544 0 0 defined $ENV{'HTTP_TRANSFER_ENCODING'} && $ENV{'HTTP_TRANSFER_ENCODING'} =~ /^chunked.*$/ || 0
592 0 0 $ENV{'REQUEST_METHOD'} || ''
607 0 0 $ENV{'SERVER_PROTOCOL'} || 'HTTP/1.0'

or 3 conditions

line l !l&&r !l&&!r condition
136 0 11 0 $endpoint ||= $self->endpoint
143 0 0 11 $self->options->{'is_compress'} ||= exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
276 0 0 11 $self->http_response->code == 510 || $self->http_response->code == 501
347 0 0 0 substr($_[0], -1, 1) ne '/' || $action ne join('', @_)
399 0 0 0 $self->options->{'is_compress'} ||= $compressed && eval { do { require Compress::Zlib } }
403 0 0 0 $compressed and not $self->options->{'is_compress'} or not $compressed and ($self->request->content_encoding || '') =~ /\S/
468 0 0 0 $self->options->{'is_compress'} ||= exists $self->options->{'compress_threshold'} && eval { do { require Compress::Zlib } }
525 0 0 0 ref $self || $self
650 0 0 0 eval "require $http_daemon" or Carp::croak($@)
730 0 0 0 ref $self || $self