Branch Coverage

blib/lib/HTTP/Body.pm
Criterion Covered Total %
branch 46 56 82.1


line true false branch
120 0 33 unless (@_ >= 2)
128 31 0 if ($index >= 0 and !defined($earliest_index) || $index < $earliest_index)
136 30 3 defined $content_length ? :
161 12 21 if ($self->{'cleanup'})
164 0 41 unless $_->{'tempname'}
165 4 33 ref $upload eq 'ARRAY' ? :
182 5 48 if ($self->{'chunked'})
188 3 20 if ($chunk_len == 0) { }
193 1 2 if (my($headers) = $self->{'chunk_buffer'} =~ /(.*)\x0D\x0A/s)
194 1 0 if (my $message = "HTTP::Message"->parse($headers))
207 18 2 if (CORE::length $self->{'chunk_buffer'} >= $chunk_len) { }
225 20 1 unless ($self->{'state'} eq "done")
235 48 0 if (defined $_[0])
239 6 42 if ($self->{'length'} > $cl)
247 48 0 unless ($self->state eq "done")
262 5 45 if @_
284 12 0 if @_
360 3 72 if @_
373 111 25 if (@_ == 2)
377 20 91 if (exists $self->{'param'}{$name}) { }
379 20 0 unless ref $_ eq "ARRAY"
402 74 76 if (@_ == 2)
406 13 61 if (exists $self->{'upload'}{$name}) { }
408 13 0 unless ref $_ eq "ARRAY"
441 90 3 if (@_ == 2)
445 18 72 if (exists $self->{'part_data'}{$name}) { }
447 18 0 unless ref $_ eq "ARRAY"
467 22 75 if @_