Branch Coverage

blib/lib/SOAP/Packager.pm
Criterion Covered Total %
branch 5 60 8.3


line true false branch
23 0 2 if (@_)
46 0 25 if (@_)
74 1 0 if not $self->persist_parts
91 0 0 if (@_)
111 4 0 if $@
131 0 0 unless $1
137 0 0 unless $self->parts
142 0 0 defined $context ? :
143 0 0 $soapversion == 1.1 ? :
166 1 0 unless defined $self->parser
167 0 0 unless my $entity = eval { do { $self->parser->parse_data($raw_input) } }
172 0 0 if (lc $entity->head->mime_type eq 'multipart/form-data') { }
0 0 elsif (lc $entity->head->mime_type eq 'multipart/related') { }
0 0 elsif (lc $entity->head->mime_type eq 'text/xml') { }
185 0 0 if ($env) { }
0 0 elsif ($entity->bodyhandle->as_string) { }
199 0 0 $name eq 'payload' ? :
209 0 0 unless $entity->head->mime_attr('content-type') =~ m[^multipart/related]i
222 0 0 if (not defined $start or $start eq '')
230 0 0 unless UNIVERSAL::isa($part, 'MIME::Entity')
239 0 0 if $pid eq ''
247 0 0 if ($start and $pid eq $start) { }
272 0 0 if (@_)
290 0 0 if $@
297 0 0 unless $self->parts
303 0 0 defined $context ? :
304 0 0 $soapversion == 1.1 ? :
311 0 0 unless $part->isa('DIME::Payload')
329 0 0 unless defined $self->parser
330 0 0 unless my $message = eval { do { $self->parser->parse_data(\$raw_input) } }