| line |
true |
false |
branch |
|
111
|
8 |
9 |
unless defined $insecure_msg_fmt_ok |
|
114
|
0 |
17 |
unless (exists $par{'load_modules'}) |
|
118
|
17 |
0 |
unless ($loop) |
|
122
|
0 |
17 |
if ($@) { } |
|
130
|
0 |
17 |
unless $loop |
|
182
|
0 |
0 |
if $rpc_socket |
|
195
|
25 |
5 |
if ($user_supplied_formats) { } |
|
205
|
3 |
27 |
unless ($insecure_msg_fmt_ok) |
|
213
|
36 |
84 |
unless $probe_formats{$name} |
|
218
|
66 |
18 |
unless $@ |
|
230
|
0 |
17 |
$host ? : |
|
238
|
0 |
17 |
if ($self->get_ssl) { } |
|
240
|
0 |
0 |
if $@ |
|
241
|
0 |
0 |
unless $self->get_ssl_key_file |
|
242
|
0 |
0 |
unless $self->get_ssl_cert_file |
|
255
|
0 |
0 |
$ssl_opts ? : |
|
|
0 |
0 |
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
|
0 |
17 |
if ($self->get_ssl) { } |
|
284
|
17 |
0 |
if ($self->get_start_log_listener) |
|
285
|
0 |
17 |
unless my $log_socket = 'IO::Socket::INET'->new('Listen', 128, 'LocalPort', $port + 1, @LocalHost, 'Proto', 'tcp', 'ReuseAddr', 1) |
|
314
|
16 |
1 |
unless $self->get_auth_required |
|
315
|
0 |
1 |
if $self->get_auth_module |
|
331
|
17 |
0 |
unless $self->get_listeners_started |
|
372
|
17 |
179 |
if ($classes->{$class}{$method} eq '_singleton') |
|
389
|
0 |
18 |
unless my $client_socket = $rpc_socket->accept |
|
402
|
0 |
17 |
unless my $client_socket = $log_socket->accept |
|
409
|
0 |
17 |
if $self->get_logger |
|
429
|
465 |
0 |
unless $logger |
|
440
|
0 |
8 |
unless ($$objects{"$object"}) |
|
459
|
10 |
27 |
if ($$objects{"$object"}) { } |
|
481
|
0 |
27 |
unless ($$objects{"$object"}) |
|
489
|
19 |
8 |
if ($self->get_singleton_classes->{$class}) |
|
497
|
8 |
0 |
if $refcount == 0 |