Branch Coverage

blib/lib/HTTP/Request/CurlParameters.pm
Criterion Covered Total %
branch 69 176 39.2


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') { }