Branch Coverage

blib/lib/HTTP/Body.pm
Criterion Covered Total %
branch 41 50 82.0


line true false branch
91 0 28 unless (@_ >= 2)
99 26 0 if ($index >= 0 and !defined($earliest_index) || $index < $earliest_index)
107 25 3 defined $content_length ? :
131 8 20 if ($$self{'cleanup'})
134 0 22 unless $$_{'tempname'}
135 2 18 ref $upload eq 'ARRAY' ? :
152 5 39 if ($$self{'chunked'})
158 3 20 if ($chunk_len == 0) { }
163 1 2 if (my($headers) = $$self{'chunk_buffer'} =~ /(.*)\x0D\x0A/s)
164 1 0 if (my $message = 'HTTP::Message'->parse($headers))
177 18 2 if (CORE::length $$self{'chunk_buffer'} >= $chunk_len) { }
195 20 1 unless ($$self{'state'} eq 'done')
205 39 0 if (defined $_[0])
209 6 33 if ($$self{'length'} > $cl)
217 39 0 unless ($self->state eq 'done')
232 5 45 if @_
254 8 0 if @_
330 3 63 if @_
343 97 21 if (@_ == 2)
347 17 80 if (exists $$self{'param'}{$name}) { }
349 17 0 unless ref $_ eq 'ARRAY'
372 53 70 if (@_ == 2)
376 11 42 if (exists $$self{'upload'}{$name}) { }
378 11 0 unless ref $_ eq 'ARRAY'
398 17 54 if @_