| line |
true |
false |
branch |
|
221
|
1 |
4 |
if ($options{'command'}) { } |
|
|
0 |
4 |
elsif ($options{'command_curl'}) { } |
|
234
|
0 |
28 |
if $_ eq "-:" |
|
241
|
0 |
5 |
unless $p->getoptionsfromarray($cmd, \my %curl_options, @option_spec) |
|
245
|
5 |
0 |
unless $curl_options{'url'} |
|
248
|
4 |
1 |
wantarray ? : |
|
271
|
6 |
4 |
if ($segments[-1] and $segments[-1] eq '..' || $segments[-1] eq '.') |
|
281
|
12 |
16 |
if ($segments[$i] ne '..' and $segments[$i + 1] eq '..') { } |
|
289
|
11 |
8 |
if (@segments < 2) |
|
298
|
0 |
30 |
if (exists $headers->{$h}) { } |
|
299
|
0 |
0 |
unless (ref $headers->{$h}) |
|
310
|
0 |
1 |
if ($read_files) { } |
|
311
|
0 |
0 |
if ($data =~ /^\@(.*)/) { } |
|
312
|
0 |
0 |
unless open my $fh, "<", $1 |
|
321
|
1 |
0 |
$data =~ /^\@(.*)/ ? : |
|
330
|
0 |
0 |
if ($read_files) { } |
|
331
|
0 |
0 |
if ($data =~ /^<(.*)/) { } |
|
|
0 |
0 |
elsif ($data =~ /^\@(.*)/) { } |
|
332
|
0 |
0 |
unless open my $fh, "<", $1 |
|
344
|
0 |
0 |
if ($data =~ /^[<\@](.*)/) { } |
|
355
|
7 |
1 |
unless $options->{'header'} |
|
358
|
7 |
1 |
unless $options->{'data'} |
|
359
|
8 |
0 |
unless $options->{'data-ascii'} |
|
362
|
8 |
0 |
unless $options->{'data-raw'} |
|
364
|
8 |
0 |
unless $options->{'data-urlencode'} |
|
365
|
8 |
0 |
unless $options->{'data-binary'} |
|
366
|
8 |
0 |
unless $options->{'json'} |
|
369
|
0 |
8 |
if ($options->{'form'}) |
|
373
|
0 |
0 |
/^([^=]+)=(.*)$/ ? : |
|
377
|
0 |
8 |
if ($options->{'form-string'}) |
|
378
|
0 |
0 |
/^([^=]+)=(.*)$/ ? : |
|
383
|
4 |
4 |
unless ($options->{'globoff'}) |
|
387
|
0 |
8 |
if ($options->{'max-filesize'} and $options->{'max-filesize'} =~ /^(\d+)([kmg])$/i) |
|
402
|
5 |
4 |
$uri->can('host_port') ? : |
|
424
|
0 |
0 |
unless /\A([^\@=]*)([=\@])?(.*)\z/ms |
|
427
|
0 |
0 |
if (not $op) { } |
|
|
0 |
0 |
elsif ($op eq '@') { } |
|
432
|
0 |
0 |
if (defined $name and length $name) { } |
|
442
|
1 |
8 |
if (@post_read_data or @post_binary_data or @post_raw_data or @post_urlencode_data) { } |
|
|
0 |
8 |
elsif (@post_json_data) { } |
|
457
|
0 |
9 |
if (@form_args) { } |
|
|
0 |
9 |
elsif ($options->{'get'}) { } |
|
|
0 |
9 |
elsif ($options->{'head'}) { } |
|
|
1 |
8 |
elsif (defined $data) { } |
|
471
|
0 |
0 |
if ($data) |
|
473
|
0 |
0 |
if (defined $q and length $q) { } |
|
489
|
0 |
1 |
if (@post_json_data) { } |
|
501
|
1 |
8 |
if (defined $body) |
|
505
|
0 |
9 |
if ($options->{'oauth2-bearer'}) |
|
509
|
1 |
8 |
if ($options->{'user'}) |
|
510
|
0 |
1 |
if ($options->{'anyauth'} or $options->{'digest'} or $options->{'ntlm'} or $options->{'negotiate'}) { } |
|
528
|
2 |
0 |
/^\s*([^:\s]+)\s*:\s*(.*)$/ ? : |
|
532
|
0 |
9 |
if (defined $options->{'user-agent'}) |
|
536
|
0 |
9 |
if (defined $options->{'referrer'}) |
|
540
|
0 |
9 |
if (defined $options->{'range'}) |
|
548
|
19 |
1 |
unless ($headers_lc{lc $k}) |
|
552
|
9 |
0 |
unless ($headers{'Host'}) |
|
556
|
0 |
9 |
if (defined $options->{'cookie-jar'}) |
|
560
|
0 |
9 |
if (defined(my $c = $options->{'cookie'})) |
|
561
|
0 |
0 |
if ($c =~ /=/) { } |
|
576
|
0 |
9 |
if ($options->{'compressed'}) |
|
583
|
0 |
27 |
if ($options->{$kind}) |
|
606
|
0 |
9 |
scalar @form_args ? : |