line |
true |
false |
branch |
103
|
6 |
0 |
eval {
do {
&load('Compress::Zlib');
1
}
} ? : |
150
|
1 |
4 |
if (ref $class) |
161
|
1 |
3 |
if (delete $args{'no_http'}) { } |
173
|
1 |
2 |
$host ? : |
|
1 |
2 |
$port ? : |
|
3 |
0 |
$queue ? : |
179
|
0 |
3 |
unless ($http) |
217
|
0 |
4 |
$args{'parser'} ? : |
224
|
1 |
3 |
unless (delete $args{'no_default'}) |
230
|
0 |
3 |
if (delete $args{'no_compress'}) { } |
240
|
3 |
0 |
if ($$self{'__compress'}) |
246
|
3 |
0 |
$$self{'__compress'} ? : |
266
|
0 |
3 |
if ($args{'fault_code_base'}) |
275
|
0 |
3 |
if ($args{'fault_table'}) |
282
|
0 |
0 |
ref $$local_table{$key} ? : |
308
|
0 |
1 |
if ($$self{'__daemon'}) |
312
|
1 |
0 |
unless ($host = $self->host) |
319
|
0 |
0 |
if ($port == 443) { } |
|
0 |
0 |
elsif ($port == 80) { } |
350
|
1 |
1 |
if ($set_started) |
370
|
0 |
0 |
if (defined $value) |
393
|
0 |
1 |
if ($path and ref $path eq 'ARRAY') |
423
|
1 |
2 |
if (not ref $meth) { } |
|
2 |
0 |
elsif (ref $meth eq 'HASH') { } |
|
0 |
0 |
elsif (not blessed $meth && $meth->isa('RPC::XML::Procedure')) { } |
426
|
0 |
0 |
if (not ref $val) { } |
445
|
0 |
2 |
if (not my $class = $RPC::XML::Server::CLASS_MAP{lc $type}) { } |
485
|
0 |
0 |
if (ref $meth eq 'HASH') |
513
|
0 |
0 |
if (ref $meth eq 'HASH') |
541
|
1 |
1 |
unless ('File::Spec'->file_name_is_absolute($file)) |
547
|
0 |
2 |
if (-f $path) |
556
|
1 |
1 |
unless ('File::Spec'->file_name_is_absolute($file)) |
589
|
0 |
0 |
unless (defined $meth) |
591
|
0 |
0 |
if ($$self{'__auto_methods'}) |
599
|
0 |
0 |
unless ($meth = $$self{'__method_table'}{$name}) |
605
|
0 |
0 |
if ($$self{'__auto_updates'} and $$meth{'file'} and $$meth{'mtime'} < (stat $$meth{'file'})[9]) |
610
|
0 |
0 |
unless (ref $ret) |
646
|
1 |
0 |
if ($$self{'__daemon'}) { } |
656
|
0 |
1 |
if (exists $args{'signal'} and $args{'signal'} ne 'NONE') { } |
659
|
0 |
0 |
ref $args{'signal'} ? : |
675
|
0 |
1 |
if ($exit_now) |
679
|
0 |
1 |
unless ($conn) |
691
|
0 |
0 |
if (not $eval_return and $@) |
699
|
0 |
0 |
if (defined $timeout) |
718
|
0 |
0 |
if ($_[$i] eq 'conf_file') |
719
|
0 |
0 |
if ($_[$i] eq 'port') |
720
|
0 |
0 |
if ($_[$i] eq 'host') |
724
|
0 |
0 |
if (exists $$self{'conf_file'} and not $conf_file_flag) |
732
|
0 |
0 |
unless ($conf_file_flag or $port_flag) |
739
|
0 |
0 |
unless (eval {
do {
require Net::Server::MultiType;
1
}
}) |
741
|
0 |
0 |
if ($@) |
830
|
0 |
1 |
unless ($conn) |
836
|
0 |
1 |
if (ref($conn) =~ /^Net::Server::Proto/) |
841
|
0 |
0 |
if ($IO::Socket::SSL::VERSION and $RPC::XML::Server::IO_SOCKET_SSL_HACK_NEEDED) |
847
|
0 |
0 |
unless (defined $Socket6::VERSION or defined $IO::Socket::INET6::VERSION) |
864
|
0 |
1 |
if ($req->method eq 'HEAD') { } |
|
1 |
0 |
elsif ($req->method eq 'POST') { } |
878
|
0 |
0 |
if (($req->content_encoding || '') =~ $self->compress_re) |
880
|
0 |
0 |
unless ($self->compress) |
890
|
0 |
0 |
if (($req->content_encoding || '') =~ /chunked/i) { } |
899
|
0 |
0 |
if ($do_compress) |
902
|
0 |
0 |
unless ($com_engine = &Compress::Zlib::inflateInit()) |
914
|
0 |
0 |
if ($buf = $conn->read_buffer) { } |
924
|
0 |
0 |
$length < 2048 ? : |
926
|
0 |
0 |
unless ($read) |
939
|
0 |
0 |
if ($do_compress) |
941
|
0 |
0 |
unless ($buf = $com_engine->inflate($buf)) |
953
|
0 |
0 |
unless (eval {
do {
$parser->parse_more($buf);
1
}
}) |
955
|
0 |
0 |
if ($@) |
969
|
0 |
0 |
unless (eval {
do {
$reqxml = $parser->parse_done;
1
}
}) |
971
|
0 |
0 |
if ($@) |
985
|
0 |
0 |
if (ref $reqxml) { } |
1005
|
0 |
0 |
if ($self->compress and $respxml->length > $self->compress_thresh and ($req->header('Accept-Encoding') || '') =~ $self->compress_re) |
1015
|
0 |
0 |
if ($self->message_file_thresh and $self->message_file_thresh < $respxml->length) { } |
1023
|
0 |
0 |
unless ($resp_fh) |
1039
|
0 |
0 |
if ($do_compress) { } |
1043
|
0 |
0 |
unless ($fh_compress) |
1059
|
0 |
0 |
unless ($com_engine = &Compress::Zlib::deflateInit()) |
1073
|
0 |
0 |
unless (defined($out = $com_engine->deflate(\$buf))) |
1082
|
0 |
0 |
unless (defined($out = $com_engine->flush)) |
1092
|
0 |
0 |
unless (close $fh_compress) |
1107
|
0 |
0 |
unless (defined read($resp_fh, $buffer, 4096)) |
1119
|
0 |
0 |
if ($do_compress) |
1133
|
0 |
0 |
if (not $eval and $@ and $@ =~ /Caught SIGPIPE/) |
1176
|
0 |
0 |
if (ref $xml eq 'SCALAR') { } |
|
0 |
0 |
elsif (ref $xml eq 'ARRAY') { } |
|
0 |
0 |
elsif (blessed $xml and $xml->isa('RPC::XML::request')) { } |
1179
|
0 |
0 |
unless (ref $reqobj) |
1199
|
0 |
0 |
unless (ref $reqobj) |
1212
|
0 |
0 |
if (ref $meth) { } |
1215
|
0 |
0 |
unless ($name eq 'system.status' and @args and $args[0]->type eq 'boolean' and $args[0]->value) |
1266
|
0 |
0 |
unless (ref $meth) |
1320
|
0 |
1 |
if (@details) |
1323
|
0 |
0 |
if ($details[0] =~ /^-?except/i) |
1330
|
0 |
0 |
unless (/[.]xpl$/) |
1339
|
0 |
1 |
unless (opendir $dh, $dir) |
1349
|
0 |
0 |
$negate ? : |
|
0 |
0 |
if ($detail and $negate ? $details{$file} : !$details{$file}) |
1356
|
0 |
0 |
unless (ref $ret) |
1389
|
0 |
0 |
if ($name) { } |
1391
|
0 |
0 |
if ($$self{'__method_table'}{$name}) |
1453
|
0 |
0 |
unless (blessed $src_srv and $src_srv->isa($pkg)) |
1457
|
0 |
0 |
unless (@names) |
1469
|
0 |
0 |
if (ref $name eq 'Regexp') { } |
1491
|
0 |
0 |
if (ref $meth) { } |
1501
|
0 |
0 |
if (@missing) { } |
1547
|
0 |
0 |
unless (blessed $src_srv and $src_srv->isa($pkg)) |
1551
|
0 |
0 |
unless (@names) |
1563
|
0 |
0 |
if (ref $name eq 'Regexp') { } |
1585
|
0 |
0 |
if (ref $meth) { } |
1595
|
0 |
0 |
if (@missing) { } |
1634
|
0 |
1 |
if ($timeout) |
1664
|
0 |
0 |
if (my $fault = $$self{'__fault_table'}{$err}) { } |
1666
|
0 |
0 |
if (ref $fault) { } |