Branch Coverage

blib/lib/HTTP/Request/FromWget.pm
Criterion Covered Total %
branch 47 76 61.8


line true false branch
178 0 40 if ($options{'command'}) { }
0 40 elsif ($options{'command_wget'}) { }
193 0 40 unless $p->getoptionsfromarray($cmd, \my %wget_options, @option_spec)
199 40 0 wantarray ? :
222 0 0 if ($segments[-1] and $segments[-1] eq '..' || $segments[-1] eq '.')
232 0 0 if ($segments[$i] ne '..' and $segments[$i + 1] eq '..') { }
240 0 40 if (@segments < 2)
265 42 6 if (not exists $headers->{$h})
272 1 0 if ($read_files) { }
273 0 1 unless open my $fh, "<", $data
287 16 24 unless $options->{'header'}
292 3 37 if (exists $options->{'post-data'})
296 2 38 if (exists $options->{'body-data'})
301 1 39 if (my $file = $options->{'post-file'})
305 0 40 if (my $file = $options->{'body-file'})
310 40 0 unless $options->{'form'}
314 40 0 unless ($options->{'globoff'})
323 40 0 $uri->can('host_port') ? :
329 6 34 if (@post_raw_data)
335 0 40 if (@form_args) { }
6 34 elsif (defined $data) { }
341 0 0 /^([^=]+)=(.*)$/ ? :
355 6 34 if (defined $body)
359 0 40 if ($options->{'user'} or $options->{'http-user'})
360 0 0 if ($options->{'anyauth'} or $options->{'ntlm'} or $options->{'negotiate'}) { }
377 40 0 /^\s*([^:\s]+)\s*:\s*(.*)$/ ? :
381 23 17 if (defined $options->{'user-agent'})
385 5 35 if (exists $options->{'cache'})
386 4 1 unless ($options->{'cache'})
392 2 38 if (exists $options->{'http-keep-alive'})
393 1 1 unless ($options->{'http-keep-alive'})
398 1 39 if (defined $options->{'referer'})
406 139 33 unless ($headers_lc{lc $k})
412 0 40 if (defined $options->{'cookie-jar'})
416 0 40 if (defined(my $c = $options->{'cookie'}))
417 0 0 if ($c =~ /=/) { }
425 0 40 if (my $c = $options->{'compression'})
426 0 0 if ($c =~ /^(gzip|auto)$/)