Branch Coverage

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


line true false branch
44 0 2 exists $args->{'keep_alive'} ? :
60 0 4 if defined $agent
82 0 2 ref $soap ? :
99 0 2 if ($args->{'endpoint'} // '') =~ m[^\w+\://([^/:]+)]
102 2 0 if ($version eq 'SOAP11') { }
0 0 elsif ($version eq 'SOAP12') { }
108 0 0 defined $action ? :
116 2 0 if ($method eq 'POST') { }
0 0 elsif ($method eq 'M-POST') { }
119 0 2 if defined $action
124 0 0 if $version eq 'SOAP11'
141 1 1 exists $INC{'XML/Compile/XOP.pm'} ? :
145 0 2 unless $expect
165 0 2 unless my $response = &$hook($request, $trace, $self)
168 0 2 unless UNIVERSAL::isa($response, 'HTTP::Response')
173 0 2 if ($response->is_error)
174 0 0 if $response->header('Client-Warning')
193 0 0 unless my $response = $ua->request($request)
198 0 0 if ($response->is_error)
199 0 0 if $response->header('Client-Warning')
207 2 0 $hook ? :
222 0 1 unless UNIVERSAL::isa($response, 'HTTP::Response')
226 0 1 unless lc $ct ne 'multipart/related'
231 0 1 unless $ct =~ m[[/+]xml$]i
254 0 1 unless @$mtom
284 0 1 unless $ct =~ m[^\s*multipart/related\s*\;]i
289 0 2 unless my $include = 'XML::Compile::XOP::Include'->fromMime($part)
296 0 1 unless @parts
299 1 0 if ($ct =~ /start\=(["']?)\<([^"']*)\>\1/)
302 0 1 unless defined $root
306 0 1 unless ($root)
326 0 0 if ($ct =~ m[[/+]xml$]i)
328 0 0 $] >= 5.008 ? :