| 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
|
0 |
20 |
$host ? : |
|
238
|
3 |
17 |
if ($self->get_ssl) { } |
|
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', 128, @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;} : ()) |
|
259
|
0 |
17 |
unless $rpc_socket = 'IO::Socket::INET'->new('Listen', 128, @LocalHost, 'LocalPort', $port, 'Proto', 'tcp', 'ReuseAddr', 1) |
|
277
|
3 |
17 |
if ($self->get_ssl) { } |
|
284
|
20 |
0 |
if ($self->get_start_log_listener) |
|
285
|
0 |
20 |
unless my $log_socket = 'IO::Socket::INET'->new('Listen', 128, 'LocalPort', $port + 1, @LocalHost, 'Proto', 'tcp', 'ReuseAddr', 1) |
|
314
|
16 |
4 |
unless $self->get_auth_required |
|
315
|
0 |
4 |
if $self->get_auth_module |
|
331
|
20 |
0 |
unless $self->get_listeners_started |
|
381
|
20 |
191 |
if ($classes->{$class}{$method} eq '_singleton') |
|
398
|
1 |
23 |
unless my $client_socket = $rpc_socket->accept |
|
411
|
0 |
20 |
unless my $client_socket = $log_socket->accept |
|
418
|
0 |
20 |
if $self->get_logger |
|
438
|
535 |
0 |
unless $logger |
|
449
|
0 |
8 |
unless ($$objects{"$object"}) |
|
468
|
10 |
29 |
if ($$objects{"$object"}) { } |
|
490
|
0 |
29 |
unless ($$objects{"$object"}) |
|
498
|
21 |
8 |
if ($self->get_singleton_classes->{$class}) |
|
506
|
8 |
0 |
if $refcount == 0 |