| line |
true |
false |
branch |
|
326
|
26 |
125 |
if (defined $body) { } |
|
333
|
0 |
0 |
if (/^\@(.*)/u) { } |
|
334
|
0 |
0 |
unless open my $fh, "<", $1 |
|
358
|
4 |
722 |
if (ref $v) { } |
|
387
|
2 |
72 |
if (my $fn = $self->cookie_jar) |
|
388
|
1 |
1 |
$self->cookie_jar_options->{'write'} ? : |
|
403
|
2 |
70 |
if (my $fn = $self->cookie_jar) |
|
406
|
1 |
1 |
$save ? : |
|
421
|
0 |
5 |
if (my $fn = $self->cookie_jar) |
|
443
|
1 |
0 |
ref $b eq 'HASH' ? : |
|
|
2 |
1 |
ref $b eq 'ARRAY' ? : |
|
|
5 |
3 |
ref $b eq 'SCALAR' ? : |
|
|
515 |
8 |
!ref($b) ? : |
|
457
|
67 |
2 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
479
|
172 |
1 |
if (not exists $h{$k}) { } |
|
|
1 |
0 |
elsif (not ref $h{$k}) { } |
|
503
|
0 |
0 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
514
|
4 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
538
|
0 |
0 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
549
|
0 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
599
|
74 |
77 |
if ('LWP' eq $type) { } |
|
|
72 |
5 |
elsif ('Tiny' eq $type) { } |
|
|
5 |
0 |
elsif ('Mojolicious' eq $type) { } |
|
617
|
72 |
2 |
if $options{'preamble'} |
|
618
|
0 |
74 |
if $options{'postamble'} |
|
628
|
2 |
72 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
632
|
1 |
73 |
if ($self->insecure) |
|
639
|
0 |
74 |
if ($self->cert) |
|
643
|
0 |
74 |
if ($self->capath) |
|
654
|
1 |
73 |
keys %ssl_options ? : |
|
657
|
0 |
74 |
if (defined(my $credentials = $self->credentials)) |
|
664
|
8 |
66 |
if ($self->show_error) { } |
|
|
0 |
66 |
elsif ($self->fail) { } |
|
672
|
74 |
0 |
if @setup_ua == 1 |
|
677
|
2 |
72 |
if ($self->method ne 'GET' and @{$self->form_args;}) { } |
|
724
|
72 |
0 |
if $options{'preamble'} |
|
725
|
0 |
72 |
if $options{'postamble'} |
|
735
|
2 |
70 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
740
|
1 |
71 |
if ($self->insecure) { } |
|
744
|
0 |
72 |
if ($self->cert) |
|
748
|
8 |
64 |
if ($self->show_error) { } |
|
|
0 |
64 |
elsif ($self->fail) { } |
|
762
|
0 |
72 |
keys %ssl_options ? : |
|
765
|
0 |
72 |
if (defined(my $credentials = $self->credentials)) |
|
773
|
72 |
0 |
if @setup_ua == 1 |
|
781
|
11 |
61 |
if (grep {/\S/u;} @content) { } |
|
|
2 |
59 |
elsif (@{$self->form_args;}) { } |
|
816
|
5 |
0 |
if $options{'preamble'} |
|
817
|
0 |
5 |
if $options{'postamble'} |
|
827
|
0 |
5 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
832
|
0 |
5 |
if ($self->insecure) |
|
835
|
0 |
5 |
if ($self->cert) |
|
838
|
0 |
5 |
if ($self->show_error) { } |
|
|
0 |
5 |
elsif ($self->fail) { } |
|
846
|
0 |
5 |
if (my $host = $self->local_address) |
|
856
|
0 |
5 |
keys %$socket_options ? : |
|
|
0 |
5 |
keys %ssl_options ? : |
|
859
|
0 |
5 |
if (defined(my $credentials = $self->credentials)) |
|
867
|
5 |
0 |
if @setup_ua == 1 |
|
875
|
0 |
5 |
if (@{$self->form_args;}) |
|
907
|
0 |
0 |
if $options{'preamble'} |
|
908
|
0 |
0 |
if $options{'postamble'} |
|
918
|
0 |
0 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
922
|
0 |
0 |
if ($self->show_error) { } |
|
|
0 |
0 |
elsif ($self->fail) { } |
|
937
|
0 |
0 |
if (defined(my $credentials = $self->credentials)) |
|
945
|
0 |
0 |
if @setup_ua == 1 |
|
953
|
0 |
0 |
if (grep {/\S/u;} @content) { } |
|
|
0 |
0 |
elsif (@{$self->form_args;}) { } |
|
1009
|
0 |
59 |
unless exists $options{'curl'} |
|
1011
|
59 |
0 |
unless exists $options{'long_options'} |
|
1015
|
1 |
58 |
if ($self->method eq 'HEAD') { } |
|
|
16 |
42 |
elsif ($self->method ne 'GET') { } |
|
1017
|
1 |
0 |
$options{'long_options'} ? : |
|
1021
|
16 |
0 |
$options{'long_options'} ? : |
|
1025
|
59 |
0 |
if (scalar keys %{$self->headers;}) |
|
1030
|
58 |
151 |
if (exists $curl_header_defaults{$h}) |
|
1034
|
208 |
1 |
unless (ref $v) |
|
1038
|
153 |
57 |
if (not defined $default or $val ne $default) |
|
1040
|
57 |
96 |
if ($h eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
11 |
85 |
elsif ($h eq 'Content-Length' and $self->post_data && $val == length $self->post_data || $self->body && $val == length $self->body) { } |
|
|
59 |
26 |
elsif ($h eq 'User-Agent') { } |
|
1054
|
59 |
0 |
$options{'long_options'} ? : |
|
1058
|
26 |
0 |
$options{'long_options'} ? : |
|
1066
|
2 |
57 |
if (@{$self->form_args;}) { } |
|
|
11 |
46 |
elsif (defined(my $body = $self->body)) { } |
|
1119
|
0 |
0 |
unless exists $options{'wget'} |
|
1121
|
0 |
0 |
unless exists $options{'long_options'} |
|
1125
|
0 |
0 |
if ($self->method ne "GET") |
|
1126
|
0 |
0 |
if ($self->method eq 'POST' and $self->body) { } |
|
1134
|
0 |
0 |
if (scalar keys %{$self->headers;}) |
|
1143
|
0 |
0 |
if ($is_cache) |
|
1153
|
0 |
0 |
if (exists $wget_header_defaults{$name}) |
|
1157
|
0 |
0 |
unless (ref $v) |
|
1161
|
0 |
0 |
if (not defined $default or $val ne $default) |
|
1163
|
0 |
0 |
if ($name eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
0 |
0 |
elsif ($name eq 'User-Agent') { } |
|
1180
|
0 |
0 |
if (my $body = $self->body) |
|
1181
|
0 |
0 |
if ($self->method eq 'POST') { } |