Branch Coverage

blib/lib/POE/Component/Client/HTTP/Request.pm
Criterion Covered Total %
branch 63 78 80.7


line true false branch
70 21 21 if ($tag eq ':fields')
84 21 21 if ($tag eq ':states')
105 1 64 if @_ & 1
108 1 63 unless defined $params{'Request'}
109 1 62 unless UNIVERSAL::isa($params{'Request'}, 'HTTP::Request')
112 1 61 unless defined $params{'Factory'}
128 1 60 if $@
132 56 4 unless (defined $http_request->header('Host') and length $http_request->header('Host'))
137 0 56 if $error
140 8 52 if (defined $params{'Proxy'}) { }
182 0 106 if $$self[4] & 128
192 41 65 if ($$self[4] & 64) { }
65 0 elsif ($$self[4] & 32) { }
202 31 34 if ($$self[16]->is_streaming) { }
218 0 41 if $$self[4] & 128
220 0 41 unless (defined $$self[5])
235 1 40 if ($$self[3]->method ne 'HEAD' and defined $$self[5]->content_length and not defined $$self[5]->header('Transfer-Encoding') and $$self[8] < $$self[5]->content_length) { }
263 0 67 if (ref $data)
290 2 65 if (defined $max and $$self[8] > $max)
324 44 21 if ($$self[5]->content_length)
327 26 18 if $$self[10]
336 18 26 if ($$self[8] >= $$self[5]->content_length)
357 0 121 if (@_ == 2)
358 0 0 if $$self[9]
386 55 30 if (defined $alarm_id)
398 0 4 if (defined $postback)
415 3 57 if ($new_port == 80 or $new_port == 443) { }
431 4 0 if (defined $last)
448 3 45 if (defined $$self[14])
452 42 6 unless $$self[5]->is_redirect
467 0 1 if ++$history > $max
470 2 4 if ($history >= $max) { }
487 4 0 if (defined $location_uri->scheme) { }
514 8 45 if ($$self[11]) { }
528 52 1 unless (ref $http_request->content)
558 3 162 unless $$self[2]
594 0 3 if ($operation eq 'connect' and $errnum == 110) { }
616 0 19 unless defined $$self[2]
625 16 96 $$self[11] ? :