| line |
true |
false |
branch |
|
111
|
11 |
9 |
unless defined $insecure_msg_fmt_ok |
|
114
|
0 |
20 |
unless (exists $par{'load_modules'}) |
|
118
|
20 |
0 |
unless ($loop) |
|
122
|
0 |
20 |
if ($@) { } |
|
130
|
0 |
20 |
unless $loop |
|
182
|
0 |
0 |
if $rpc_socket |
|
195
|
25 |
8 |
if ($user_supplied_formats) { } |
|
205
|
3 |
30 |
unless ($insecure_msg_fmt_ok) |
|
213
|
36 |
96 |
unless $probe_formats{$name} |
|
218
|
75 |
21 |
unless $@ |
|
230
|
20 |
0 |
$host ? : |
|
238
|
3 |
17 |
if ($self->get_ssl) { } |
|
|
0 |
17 |
elsif ($host eq 'unix/') { } |
|
240
|
0 |
3 |
if $@ |
|
241
|
0 |
3 |
unless $self->get_ssl_key_file |
|
242
|
0 |
3 |
unless $self->get_ssl_cert_file |
|
255
|
0 |
3 |
$ssl_opts ? : |
|
|
0 |
3 |
unless $rpc_socket = "IO::Socket::SSL"->new("Listen", 4096, @LocalHost, "LocalPort", $port, "Proto", "tcp", "ReuseAddr", 1, "SSL_key_file", $self->get_ssl_key_file, "SSL_cert_file", $self->get_ssl_cert_file, "SSL_passwd_cb", $self->get_ssl_passwd_cb, $ssl_opts ? %{$ssl_opts;} : ()) |
|
261
|
0 |
0 |
unless $rpc_socket = "IO::Socket::UNIX"->new("Type", 1, "Listen", 4096, "Local", $port) |
|
269
|
0 |
17 |
unless $rpc_socket = "IO::Socket::INET"->new("Listen", 4096, @LocalHost, "LocalPort", $port, "Proto", "tcp", "ReuseAddr", 1) |
|
287
|
3 |
17 |
if ($self->get_ssl) { } |
|
294
|
20 |
0 |
if ($self->get_start_log_listener) |
|
296
|
0 |
20 |
if ($host eq 'unix/') { } |
|
300
|
0 |
0 |
unless $log_socket = "IO::Socket::UNIX"->new("Type", 1, "Listen", 4096, "Local", $port) |
|
307
|
0 |
20 |
unless $log_socket = "IO::Socket::INET"->new("Listen", 4096, "LocalPort", $port + 1, @LocalHost, "Proto", "tcp", "ReuseAddr", 1) |
|
337
|
16 |
4 |
unless $self->get_auth_required |
|
338
|
0 |
4 |
if $self->get_auth_module |
|
354
|
20 |
0 |
unless $self->get_listeners_started |
|
404
|
20 |
263 |
if ($classes->{$class}{$method} eq "_singleton") |
|
421
|
1 |
23 |
unless my $client_socket = $rpc_socket->accept |
|
434
|
0 |
20 |
unless my $client_socket = $log_socket->accept |
|
441
|
0 |
20 |
if $self->get_logger |
|
461
|
535 |
0 |
unless $logger |
|
472
|
0 |
8 |
unless ($$objects{"$object"}) |
|
491
|
10 |
29 |
if ($$objects{"$object"}) { } |
|
513
|
0 |
29 |
unless ($$objects{"$object"}) |
|
521
|
21 |
8 |
if ($self->get_singleton_classes->{$class}) |
|
529
|
8 |
0 |
if $refcount == 0 |