| line |
true |
false |
branch |
|
318
|
8 |
44 |
if (defined $body) { } |
|
325
|
0 |
0 |
/^\@(.*)/ ? : |
|
326
|
0 |
0 |
unless open my $fh, "<", $1 |
|
350
|
1 |
386 |
ref $v ? : |
|
379
|
0 |
27 |
if (my $fn = $self->cookie_jar) |
|
380
|
0 |
0 |
$self->cookie_jar_options->{'write'} ? : |
|
395
|
0 |
25 |
if (my $fn = $self->cookie_jar) |
|
398
|
0 |
0 |
$save ? : |
|
413
|
0 |
0 |
if (my $fn = $self->cookie_jar) |
|
435
|
20 |
0 |
ref $b eq 'HASH' ? : |
|
|
0 |
20 |
ref $b eq 'ARRAY' ? : |
|
|
20 |
20 |
ref $b eq 'SCALAR' ? : |
|
|
295 |
40 |
!ref($b) ? : |
|
449
|
20 |
2 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
471
|
106 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
495
|
0 |
0 |
if ($val and $val eq $self->uri->host_port || $val eq $self->uri->host) |
|
506
|
0 |
0 |
if (not exists $h{$k}) { } |
|
|
0 |
0 |
elsif (not ref $h{$k}) { } |
|
556
|
27 |
25 |
if ('LWP' eq $type) { } |
|
|
25 |
0 |
elsif ('Tiny' eq $type) { } |
|
|
0 |
0 |
elsif ('Mojolicious' eq $type) { } |
|
574
|
25 |
2 |
if $options{'preamble'} |
|
575
|
0 |
27 |
if $options{'postamble'} |
|
585
|
0 |
27 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
589
|
20 |
7 |
if ($self->insecure) |
|
596
|
0 |
27 |
if ($self->cert) |
|
600
|
0 |
27 |
if ($self->capath) |
|
610
|
20 |
7 |
keys %ssl_options ? : |
|
613
|
0 |
27 |
if (defined(my $credentials = $self->credentials)) |
|
620
|
0 |
27 |
if ($self->show_error) { } |
|
|
0 |
27 |
elsif ($self->fail) { } |
|
628
|
27 |
0 |
if @setup_ua == 1 |
|
633
|
0 |
27 |
if ($self->method ne 'GET' and @{$self->form_args;}) { } |
|
679
|
25 |
0 |
if $options{'preamble'} |
|
680
|
0 |
25 |
if $options{'postamble'} |
|
690
|
0 |
25 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
695
|
20 |
5 |
if ($self->insecure) { } |
|
699
|
0 |
25 |
if ($self->cert) |
|
703
|
0 |
25 |
if ($self->show_error) { } |
|
|
0 |
25 |
elsif ($self->fail) { } |
|
716
|
0 |
25 |
keys %ssl_options ? : |
|
719
|
0 |
25 |
if (defined(my $credentials = $self->credentials)) |
|
727
|
25 |
0 |
if @setup_ua == 1 |
|
735
|
3 |
22 |
if (grep {/\S/;} @content) { } |
|
|
0 |
22 |
elsif (@{$self->form_args;}) { } |
|
770
|
0 |
0 |
if $options{'preamble'} |
|
771
|
0 |
0 |
if $options{'postamble'} |
|
781
|
0 |
0 |
if (my $p = $init_cookie_jar->{'preamble'}) |
|
786
|
0 |
0 |
if ($self->insecure) |
|
789
|
0 |
0 |
if ($self->cert) |
|
792
|
0 |
0 |
if ($self->show_error) { } |
|
|
0 |
0 |
elsif ($self->fail) { } |
|
800
|
0 |
0 |
if (my $host = $self->local_address) |
|
810
|
0 |
0 |
keys %$socket_options ? : |
|
|
0 |
0 |
keys %ssl_options ? : |
|
813
|
0 |
0 |
if (defined(my $credentials = $self->credentials)) |
|
821
|
0 |
0 |
if @setup_ua == 1 |
|
829
|
0 |
0 |
if (@{$self->form_args;}) |
|
882
|
0 |
0 |
unless exists $options{'curl'} |
|
884
|
0 |
0 |
unless exists $options{'long_options'} |
|
888
|
0 |
0 |
if ($self->method eq 'HEAD') { } |
|
|
0 |
0 |
elsif ($self->method ne 'GET') { } |
|
890
|
0 |
0 |
$options{'long_options'} ? : |
|
894
|
0 |
0 |
$options{'long_options'} ? : |
|
898
|
0 |
0 |
if (scalar keys %{$self->headers;}) |
|
903
|
0 |
0 |
if (exists $curl_header_defaults{$h}) |
|
907
|
0 |
0 |
unless (ref $v) |
|
911
|
0 |
0 |
if (not defined $default or $val ne $default) |
|
914
|
0 |
0 |
if ($h eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
0 |
0 |
elsif ($h eq 'User-Agent') { } |
|
919
|
0 |
0 |
$options{'long_options'} ? : |
|
923
|
0 |
0 |
$options{'long_options'} ? : |
|
931
|
0 |
0 |
if (my $body = $self->body) |
|
933
|
0 |
0 |
$options{'long_options'} ? : |
|
973
|
0 |
20 |
unless exists $options{'wget'} |
|
975
|
20 |
0 |
unless exists $options{'long_options'} |
|
979
|
3 |
17 |
if ($self->method ne "GET") |
|
980
|
2 |
1 |
if ($self->method eq 'POST' and $self->body) { } |
|
988
|
20 |
0 |
if (scalar keys %{$self->headers;}) |
|
997
|
1 |
19 |
if ($is_cache) |
|
1007
|
79 |
41 |
if (exists $wget_header_defaults{$name}) |
|
1011
|
120 |
0 |
unless (ref $v) |
|
1015
|
62 |
58 |
if (not defined $default or $val ne $default) |
|
1017
|
18 |
44 |
if ($name eq 'Host' and $val eq $self->uri->host_port || $val eq $self->uri->host) { } |
|
|
20 |
24 |
elsif ($name eq 'User-Agent') { } |
|
1034
|
3 |
17 |
if (my $body = $self->body) |
|
1035
|
2 |
1 |
if ($self->method eq 'POST') { } |