| line |
true |
false |
branch |
|
47
|
2 |
2 |
if (ref $self->payload)
|
|
69
|
2 |
4 |
if $self->{'server'} and $self->{'port'}
|
|
71
|
0 |
7 |
if ($self->basicAuth)
|
|
80
|
6 |
1 |
if ($self->scheme)
|
|
87
|
1 |
1 |
unless keys %{$self->q_params;}
|
|
99
|
3 |
7 |
if $self->{'server'}
|
|
101
|
1 |
9 |
if ($self->query)
|
|
102
|
0 |
1 |
if $url and not $self->{'query'} =~ m[^/]u
|
|
106
|
9 |
1 |
if ($self->path)
|
|
107
|
6 |
3 |
unless $self->{'path'} =~ m[^/]u
|
|
111
|
0 |
10 |
if $self->req_params
|
|
114
|
5 |
5 |
if $self->encoding
|
|
133
|
0 |
4 |
unless $self->response->is_success
|
|
138
|
0 |
4 |
if (exists $headers{'Content-Transfer-Encoding'} and $headers{'Content-Transfer-Encoding'} eq 'binary')
|
|
143
|
0 |
4 |
unless my $r_encoding = $self->response->header('Content_Type')
|
|
149
|
0 |
0 |
if ($self->raw =~ /^<\?xml/u) { }
|