Branch Coverage

blib/lib/Net/IMP/HTTP/Example/LogFormData.pm
Criterion Covered Total %
branch 0 40 0.0


line true false branch
50 0 0 unless (my $req = $$self{'req'} = 'HTTP::Request'->parse($hdr))
61 0 0 if (my(@qp) = $req->uri->query_form)
71 0 0 if ($ct and $req->method eq 'POST' and $ct ~~ ['application/x-www-form-urlencoded', 'multipart/form-data']) { }
80 0 0 if $$self{'info'}
88 0 0 if $offset
90 0 0 if (($data // '') eq '') { }
0 0 elsif ($$self{'btype'}) { }
94 0 0 if (not $$self{'btype'}) { }
0 0 elsif ($$self{'btype'} eq 'application/x-www-form-urlencoded') { }
0 0 elsif ($$self{'btype'} eq 'multipart/form-data') { }
100 0 0 unless defined $_
111 0 0 unless ($boundary)
125 0 0 unless $part =~ /\A(.*?(\r?\n))\2(.*)/s
128 0 0 unless (my($cd) = $hdr =~ /^Content-Disposition:[ \t]*(.*(?:\r?\n[ \t].*)*)/im)
134 0 0 unless ($name)
140 0 0 if $fname
165 0 0 unless my $info = $$self{'info'}
169 0 0 if (eval { do { require YAML } }) { }
0 0 elsif (eval { do { require YAML::Tiny } }) { }
0 0 elsif (eval { do { require Data::Dumper } }) { }