Branch Coverage

blib/lib/SOAP/Test.pm
Criterion Covered Total %
branch 2 40 5.0


line true false branch
45 0 6 unless my $proxy = shift()
52 6 0 unless (defined $r and defined $r->envelope)
60 0 0 unless eval 'use SOAP::Lite on_fault => sub{ref $_[1] ? $_[1] : new SOAP::SOM}; 1'
106 0 0 if ($proxy =~ /^http/) { }
118 0 0 unless eval "use SOAP::Lite\n uri => 'http://my.own.site.com/My/Examples',\n dispatch_from => ['A', 'B'],\n proxy => '${proxy}',\n ; 1"
130 0 0 unless eval "use SOAP::Lite\n dispatch_from => 'A',\n uri => 'http://my.own.site.com/My/Examples',\n proxy => '${proxy}',\n ; 1"
141 0 0 unless eval "use SOAP::Lite +autodispatch =>\n uri => 'urn:', proxy => '${proxy}'; 1"
149 0 0 unless eval "use SOAP::Lite +autodispatch =>\n uri => 'urn:/A/B', proxy => '${proxy}'; 1"
183 0 0 unless eval "use SOAP::Lite +autodispatch =>\n uri => 'urn:', proxy => '${proxy}'; 1"
188 0 0 if (not ref $r or exists $$r{'id'}) { }
196 0 0 if (not ref $r or exists $$r{'id'}) { }
197 0 0 if ref $r
207 0 0 if $^W
209 0 0 unless eval "use SOAP::Lite +autodispatch =>\n uri => 'http://my.own.site.com/My/Parameters', proxy => '${proxy}'; 1"
226 0 0 if $^W
231 0 0 if ($proxy =~ /^tcp:/) { }
246 0 0 if (not eval q[pack('U*', 0)]) { }
353 0 0 unless eval "use SOAP::Lite\n uri => 'urn:/My/Examples', proxy => '${proxy}'; 1"
361 0 0 if UNIVERSAL::isa($_[0], 'HTTP::Request')
365 0 0 if ($proxy =~ /^tcp:/) { }