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)$/) |