Branch Coverage

lib/XML/Compile/Transport/SOAPHTTP.pm
Criterion Covered Total %
branch 24 66 36.3


line true false branch
46 0 2 exists $args->{'keep_alive'} ? :
62 0 4 if defined $agent
84 0 2 ref $soap ? :
101 0 2 if ($args->{'endpoint'} // "") =~ m[^\w+\://([^/:]+)]
104 2 0 if ($version eq 'SOAP11') { }
0 0 elsif ($version eq 'SOAP12') { }
110 0 0 defined $action ? :
118 2 0 if ($method eq 'POST') { }
0 0 elsif ($method eq 'M-POST') { }
121 0 2 if defined $action
126 0 0 if $version eq "SOAP11"
143 1 1 exists $INC{'XML/Compile/XOP.pm'} ? :
147 0 2 unless $expect
167 0 2 unless my $response = &$hook($request, $trace, $self)
170 0 2 unless UNIVERSAL::isa($response, "HTTP::Response")
175 0 2 if ($response->is_error)
176 0 0 if $response->header("Client-Warning")
195 0 0 unless my $response = $ua->request($request)
200 0 0 if ($response->is_error)
201 0 0 if $response->header("Client-Warning")
209 2 0 $hook ? :
224 0 1 unless UNIVERSAL::isa($response, "HTTP::Response")
228 0 1 unless lc $ct ne "multipart/related"
233 0 1 unless $ct =~ m[[/+]xml$]i
256 0 1 unless @$mtom
286 0 1 unless $ct =~ m[^\s*multipart/related\s*\;]i
291 0 2 unless my $include = "XML::Compile::XOP::Include"->fromMime($part)
298 0 1 unless @parts
301 1 0 if ($ct =~ /start\=(["']?)\<([^"']*)\>\1/)
304 0 1 unless defined $root
308 0 1 unless ($root)
328 0 0 if ($ct =~ m[[/+]xml$]i)
330 0 0 $] >= 5.008 ? :