| line |
true |
false |
branch |
|
58
|
4 |
0 |
eval {
do {
&load('Compress::Zlib');
1
}
} ? : |
|
87
|
1 |
1 |
unless ($location) |
|
96
|
0 |
1 |
exists $attrs{'useragent'} ? : |
|
115
|
1 |
0 |
if ($self->{'__compress'}) |
|
135
|
0 |
1 |
if (ref $attrs{'combined_handler'}) |
|
141
|
0 |
1 |
if (ref $attrs{'fault_handler'}) |
|
146
|
0 |
1 |
if (ref $attrs{'error_handler'}) |
|
154
|
0 |
1 |
$attrs{'parser'} ? : |
|
|
1 |
0 |
unless $self->{'__parser'} = 'RPC::XML::ParserFactory'->new($attrs{'parser'} ? @{$attrs{'parser'};} : ()) |
|
194
|
0 |
0 |
unless (ref $return) |
|
232
|
0 |
0 |
if (not $req) { } |
|
|
0 |
0 |
elsif (not &blessed($req) && $req->isa('RPC::XML::request')) { } |
|
239
|
0 |
0 |
unless ($req = 'RPC::XML::request'->new($req, @args)) |
|
248
|
0 |
0 |
unless ($reqclone->header('Host')) |
|
252
|
0 |
0 |
if ($self->compress_requests and $can_compress and $req->length >= $self->compress_thresh) |
|
264
|
0 |
0 |
if ($self->message_file_thresh and $self->message_file_thresh <= $req->length) { } |
|
272
|
0 |
0 |
unless ($req_fh) |
|
285
|
0 |
0 |
if ($do_compress and $req->length >= $self->compress_thresh) { } |
|
290
|
0 |
0 |
unless ($fh_compress) |
|
303
|
0 |
0 |
unless ($com_engine) |
|
315
|
0 |
0 |
unless (defined $out) |
|
323
|
0 |
0 |
unless (defined $out) |
|
330
|
0 |
0 |
unless (close $fh_compress) |
|
344
|
0 |
0 |
unless (defined read($req_fh, $b, 4096)) |
|
356
|
0 |
0 |
if ($do_compress) |
|
375
|
0 |
0 |
unless (defined $compression) |
|
377
|
0 |
0 |
($resp->content_encoding || '') =~ $self->compress_re ? : |
|
380
|
0 |
0 |
if ($compression and not $can_compress) |
|
384
|
0 |
0 |
if ($compression) |
|
386
|
0 |
0 |
unless ($com_engine = &Compress::Zlib::inflateInit()) |
|
393
|
0 |
0 |
if ($compression) |
|
396
|
0 |
0 |
unless (($data_in, $error) = $com_engine->inflate($data_in)) |
|
407
|
0 |
0 |
if ($message = $response->headers->header('X-Died')) |
|
412
|
0 |
0 |
'CODE' eq ref $self->error_handler ? : |
|
415
|
0 |
0 |
unless ($response->is_success) |
|
420
|
0 |
0 |
'CODE' eq ref $self->error_handler ? : |
|
426
|
0 |
0 |
unless (eval {
do {
$value = $parser->parse_done;
1
}
}) |
|
428
|
0 |
0 |
if ($@) |
|
431
|
0 |
0 |
'CODE' eq ref $self->error_handler ? : |
|
438
|
0 |
0 |
if (not ref $value) { } |
|
|
0 |
0 |
elsif ($value->is_fault) { } |
|
441
|
0 |
0 |
'CODE' eq ref $self->error_handler ? : |
|
446
|
0 |
0 |
'CODE' eq ref $self->fault_handler ? : |
|
538
|
0 |
0 |
if ($value) |
|
551
|
0 |
0 |
unless ($value) |
|
556
|
0 |
0 |
$value ? : |
|
566
|
0 |
0 |
if ($newval and ref $newval) |
|
571
|
0 |
0 |
if (@_ == 2 and not defined $newval) |
|
584
|
0 |
0 |
if ($newval and ref $newval) |
|
589
|
0 |
0 |
if (@_ == 2 and not defined $newval) |
|
610
|
0 |
0 |
unless ($thresh) |
|
622
|
0 |
0 |
unless ($dir) |