| line |
true |
false |
branch |
|
330
|
8 |
38 |
if (defined $body) { } |
|
337
|
0 |
0 |
/^\@(.*)/ ? : |
|
338
|
0 |
0 |
unless open my $fh, "<", $1 |
|
362
|
1 |
314 |
ref $v ? : |
|
391
|
0 |
24 |
if (my $fn = $self->cookie_jar) |
|
392
|
0 |
0 |
$self->cookie_jar_options->{'write'} ? : |
|
407
|
0 |
22 |
if (my $fn = $self->cookie_jar) |
|
410
|
0 |
0 |
$save ? : |
|
425
|
0 |
0 |
if (my $fn = $self->cookie_jar) |
|
447
|
17 |
0 |
ref $b eq 'HASH' ? : |
|
|
0 |
17 |
ref $b eq 'ARRAY' ? : |
|
|
17 |
17 |
ref $b eq 'SCALAR' ? : |
|
|
244 |
34 |
!ref($b) ? : |
|
461
|
17 |
2 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
483
|
85 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
507
|
0 |
0 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
518
|
0 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
568
|
24 |
22 |
if ('LWP' eq $type) { } |
|
|
22 |
0 |
elsif ('Tiny' eq $type) { } |
|
|
0 |
0 |
elsif ('Mojolicious' eq $type) { } |
|
586
|
22 |
2 |
if $options{'preamble'} |
|
587
|
0 |
24 |
if $options{'postamble'} |
|
597
|
0 |
24 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
601
|
17 |
7 |
if ($self->insecure) |
|
608
|
0 |
24 |
if ($self->cert) |
|
612
|
0 |
24 |
if ($self->capath) |
|
623
|
17 |
7 |
keys %ssl_options ? : |
|
626
|
0 |
24 |
if (defined(my $credentials = $self->credentials)) |
|
633
|
0 |
24 |
if ($self->show_error) { } |
|
|
0 |
24 |
elsif ($self->fail) { } |
|
641
|
24 |
0 |
if @setup_ua == 1 |
|
646
|
0 |
24 |
if ($self->method ne 'GET' and @{$self->form_args;}) { } |
|
692
|
22 |
0 |
if $options{'preamble'} |
|
693
|
0 |
22 |
if $options{'postamble'} |
|
703
|
0 |
22 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
708
|
17 |
5 |
if ($self->insecure) { } |
|
712
|
0 |
22 |
if ($self->cert) |
|
716
|
0 |
22 |
if ($self->show_error) { } |
|
|
0 |
22 |
elsif ($self->fail) { } |
|
730
|
0 |
22 |
keys %ssl_options ? : |
|
733
|
0 |
22 |
if (defined(my $credentials = $self->credentials)) |
|
741
|
22 |
0 |
if @setup_ua == 1 |
|
749
|
3 |
19 |
if (grep {/\S/;} @content) { } |
|
|
0 |
19 |
elsif (@{$self->form_args;}) { } |
|
784
|
0 |
0 |
if $options{'preamble'} |
|
785
|
0 |
0 |
if $options{'postamble'} |
|
795
|
0 |
0 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
800
|
0 |
0 |
if ($self->insecure) |
|
803
|
0 |
0 |
if ($self->cert) |
|
806
|
0 |
0 |
if ($self->show_error) { } |
|
|
0 |
0 |
elsif ($self->fail) { } |
|
814
|
0 |
0 |
if (my $host = $self->local_address) |
|
824
|
0 |
0 |
keys %$socket_options ? : |
|
|
0 |
0 |
keys %ssl_options ? : |
|
827
|
0 |
0 |
if (defined(my $credentials = $self->credentials)) |
|
835
|
0 |
0 |
if @setup_ua == 1 |
|
843
|
0 |
0 |
if (@{$self->form_args;}) |
|
896
|
0 |
0 |
unless exists $options{'curl'} |
|
898
|
0 |
0 |
unless exists $options{'long_options'} |
|
902
|
0 |
0 |
if ($self->method eq 'HEAD') { } |
|
|
0 |
0 |
elsif ($self->method ne 'GET') { } |
|
904
|
0 |
0 |
$options{'long_options'} ? : |
|
908
|
0 |
0 |
$options{'long_options'} ? : |
|
912
|
0 |
0 |
if (scalar keys %{$self->headers;}) |
|
917
|
0 |
0 |
if (exists $curl_header_defaults{$h}) |
|
921
|
0 |
0 |
unless (ref $v) |
|
925
|
0 |
0 |
if (not defined $default or $val ne $default) |
|
927
|
0 |
0 |
if ($h eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
0 |
0 |
elsif ($h eq 'Content-Length' and $self->post_data && $val == length $self->post_data || $self->body && $val == length $self->body) { } |
|
|
0 |
0 |
elsif ($h eq 'User-Agent') { } |
|
941
|
0 |
0 |
$options{'long_options'} ? : |
|
945
|
0 |
0 |
$options{'long_options'} ? : |
|
953
|
0 |
0 |
if (my $body = $self->body) |
|
955
|
0 |
0 |
$options{'long_options'} ? : |
|
995
|
0 |
17 |
unless exists $options{'wget'} |
|
997
|
17 |
0 |
unless exists $options{'long_options'} |
|
1001
|
3 |
14 |
if ($self->method ne "GET") |
|
1002
|
2 |
1 |
if ($self->method eq 'POST' and $self->body) { } |
|
1010
|
17 |
0 |
if (scalar keys %{$self->headers;}) |
|
1019
|
0 |
17 |
if ($is_cache) |
|
1029
|
67 |
31 |
if (exists $wget_header_defaults{$name}) |
|
1033
|
98 |
0 |
unless (ref $v) |
|
1037
|
49 |
49 |
if (not defined $default or $val ne $default) |
|
1039
|
15 |
34 |
if ($name eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
17 |
17 |
elsif ($name eq 'User-Agent') { } |
|
1056
|
3 |
14 |
if (my $body = $self->body) |
|
1057
|
2 |
1 |
if ($self->method eq 'POST') { } |