Branch Coverage

blib/lib/XML/Compile/SOAP/Daemon.pm
Criterion Covered Total %
branch 23 76 30.2


line true false branch
38 0 1 unless $class ne 'XML::Compile::SOAP::Daemon'
46 0 1 exists $args->{'accept_slow_select'} ? :
52 0 1 if (my $support = delete $args->{'support_soap'})
59 0 1 unless @classes
73 2 0 @_ == 1 ? :
76 1 0 $dir eq 'OUTPUT' ? :
1 1 $dir eq 'INPUT' ? :
86 1 0 @_ == 1 ? :
101 0 0 if 'XML::Compile::SOAP::WSA'->can('new') and not keys %{$$self{'wsa_input'};}
115 0 4 if (not defined $input) { }
4 0 elsif (ref $input eq 'SCALAR') { }
120 1 3 if $@
126 3 0 if $xmlin->isa('XML::LibXML::Document')
130 1 2 unless $local eq 'Envelope'
134 1 1 unless my $proto = 'XML::Compile::SOAP'->fromEnvelope($envns)
145 0 1 if (my $wsa_action = $info->{'wsa_action'})
146 0 0 if (my $name = $wsa_in->{$wsa_action})
150 0 0 if ($xmlout)
159 1 0 if (defined $soapaction)
160 0 1 if (my $name = $sa->{$soapaction})
164 0 0 if ($xmlout)
173 1 0 if ($self->{'accept_slow_select'})
178 0 0 unless defined $xmlout
186 0 0 if $_ ne $version
189 0 1 if @other
205 0 0 $args{'callbacks'} ? :
213 0 0 $ops ? :
214 0 0 unless @ops
219 0 0 if $names{$name}++
222 0 0 if (my $callback = $callbacks{$name}) { }
223 0 0 unless UNIVERSAL::isa($callback, 'CODE')
240 0 0 if ($op->can('wsaAction'))
242 0 0 if defined $in
244 0 0 if defined $out
251 0 0 if (keys %names != keys %callbacks)
264 0 0 ref $soap ? :
278 0 0 ref $soap ? :
293 0 0 unless @handlers