Branch Coverage

blib/lib/HTTP/Request/FromWget.pm
Criterion Covered Total %
branch 0 76 0.0


line true false branch
174 0 0 if ($options{'command'}) { }
0 0 elsif ($options{'command_wget'}) { }
189 0 0 unless $p->getoptionsfromarray($cmd, \my %wget_options, @option_spec)
195 0 0 wantarray ? :
218 0 0 if ($segments[-1] and $segments[-1] eq '..' || $segments[-1] eq '.')
228 0 0 if ($segments[$i] ne '..' and $segments[$i + 1] eq '..') { }
236 0 0 if (@segments < 2)
261 0 0 if (not exists $headers->{$h})
268 0 0 if ($read_files) { }
269 0 0 unless open my $fh, "<", $data
283 0 0 unless $options->{'header'}
288 0 0 if (exists $options->{'post-data'})
292 0 0 if (exists $options->{'body-data'})
297 0 0 if (my $file = $options->{'post-file'})
301 0 0 if (my $file = $options->{'body-file'})
306 0 0 unless $options->{'form'}
310 0 0 unless ($options->{'globoff'})
319 0 0 $uri->can('host_port') ? :
325 0 0 if (@post_raw_data)
331 0 0 if (@form_args) { }
0 0 elsif (defined $data) { }
337 0 0 /^([^=]+)=(.*)$/u ? :
351 0 0 if (defined $body)
355 0 0 if ($options->{'user'} or $options->{'http-user'})
356 0 0 if ($options->{'anyauth'} or $options->{'ntlm'} or $options->{'negotiate'}) { }
373 0 0 /^\s*([^:\s]+)\s*:\s*(.*)$/u ? :
377 0 0 if (defined $options->{'user-agent'})
381 0 0 if (exists $options->{'cache'})
382 0 0 unless ($options->{'cache'})
388 0 0 if (exists $options->{'http-keep-alive'})
389 0 0 unless ($options->{'http-keep-alive'})
394 0 0 if (defined $options->{'referer'})
402 0 0 unless ($headers_lc{lc $k})
408 0 0 if (defined $options->{'cookie-jar'})
412 0 0 if (defined(my $c = $options->{'cookie'}))
413 0 0 if ($c =~ /=/u) { }
421 0 0 if (my $c = $options->{'compression'})
422 0 0 if ($c =~ /^(gzip|auto)$/u)