| line |
true |
false |
branch |
|
64
|
2 |
0 |
if (exists $args{'uri'}) |
|
65
|
0 |
2 |
unless (blessed($args{'uri'}) and $args{'uri'}->isa('URI')) |
|
73
|
0 |
2 |
if ($self->isa('Lim::RPC::Transport::HTTPS') and not defined 'Lim::RPC::TLS'->instance->tls_ctx) |
|
80
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
90
|
0 |
0 |
unless (defined $self) |
|
94
|
0 |
0 |
if Lim::WARN() |
|
102
|
0 |
0 |
unless (defined $self) |
|
106
|
0 |
0 |
if Lim::WARN() |
|
122
|
0 |
2 |
unless (defined $self) |
|
126
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
134
|
0 |
4 |
unless (defined $self) |
|
138
|
0 |
4 |
if ($$self{'client'}{$handle}{'close'}) |
|
145
|
0 |
2 |
unless (defined $self) |
|
151
|
0 |
2 |
unless (defined $client) |
|
152
|
0 |
0 |
if Lim::WARN() |
|
158
|
0 |
2 |
if (exists $$client{'process_watcher'}) |
|
159
|
0 |
0 |
if Lim::WARN() |
|
165
|
0 |
2 |
exists $$client{'content'} ? : |
|
|
0 |
2 |
if (length($$client{'headers'}) + (exists $$client{'content'} ? length $$client{'content'} : 0) + length($$client{'rbuf'}) > 8388608) |
|
166
|
0 |
0 |
if Lim::WARN() |
|
172
|
2 |
0 |
if (not exists $$client{'content'}) { } |
|
175
|
2 |
0 |
if ($$client{'headers'} =~ /\015?\012\015?\012/ou) |
|
187
|
2 |
0 |
if (defined $$client{'request'} and length $$client{'content'} == $$client{'request'}->header('Content-Length')) |
|
192
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
201
|
0 |
2 |
unless (defined $self and defined $client) |
|
209
|
0 |
2 |
unless (defined $self and defined $client) |
|
213
|
0 |
2 |
unless (exists $$client{'processing'}) |
|
217
|
0 |
2 |
unless (blessed $response and $response->isa('HTTP::Response')) |
|
221
|
0 |
2 |
unless ($response->code) |
|
225
|
0 |
2 |
if ($response->code != 200 and not length $response->content) |
|
231
|
0 |
2 |
unless (defined $response->header('Content-Type')) |
|
235
|
0 |
2 |
unless ($response->protocol) |
|
239
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
241
|
0 |
2 |
if ($$client{'request'}->header('Connection') eq 'close') { } |
|
242
|
0 |
0 |
if Lim::RPC_DEBUG() |
|
258
|
0 |
0 |
unless (defined $client) |
|
266
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
267
|
2 |
0 |
if ($protocol->handle($cb, $$client{'request'}, $self)) |
|
269
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
273
|
0 |
0 |
if Lim::RPC_DEBUG() |
|
280
|
0 |
2 |
$self->isa('Lim::RPC::Transport::HTTPS') ? : |
|
290
|
2 |
0 |
if Lim::RPC_DEBUG() |
|
295
|
0 |
2 |
$self->isa('Lim::RPC::Transport::HTTPS') ? : |