| line |
true |
false |
branch |
|
53
|
0 |
0 |
@v1 < @v2 ? : |
|
54
|
0 |
0 |
if $v1[$_] > $v2[$_] |
|
55
|
0 |
0 |
if $v1[$_] < $v2[$_] |
|
57
|
0 |
0 |
if @v1 > @v2 |
|
58
|
0 |
0 |
if @v1 < @v2 |
|
89
|
0 |
9 |
unless any sub {
$family == $_;
}
, 1, 2 |
|
91
|
9 |
0 |
if ($family == 1) { } |
|
103
|
9 |
0 |
unless $str |
|
104
|
0 |
0 |
if $str =~ /^tarantool client, version/ |
|
106
|
0 |
0 |
unless $vt |
|
108
|
0 |
0 |
unless any sub {
$_ eq $res;
}
, 'eq', 'lt' |
|
115
|
0 |
4 |
unless my $cfg_file = delete $opts{'cfg'} |
|
116
|
0 |
4 |
unless -r $cfg_file |
|
117
|
0 |
4 |
unless open my $fh, '<:encoding(UTF-8)', $cfg_file |
|
122
|
0 |
4 |
unless any sub {
$family == $_;
}
, 1, 2 |
|
135
|
1 |
3 |
if $opts{'script_dir'} |
|
169
|
0 |
0 |
unless $$self{'log'} and -r $$self{'log'} |
|
181
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
188
|
0 |
0 |
unless $s |
|
193
|
0 |
0 |
if $_ eq '---' |
|
194
|
0 |
0 |
if $_ eq '...' |
|
203
|
0 |
4 |
if ($ENV{'TARANTOOL_TEMPDIR'}) { } |
|
206
|
0 |
0 |
if -d $$self{'temp'} |
|
212
|
4 |
0 |
if ($self->family) { } |
|
223
|
4 |
0 |
if ($self->family == 1) { } |
|
224
|
4 |
0 |
unless is_version '1.4.0', $self->family |
|
227
|
0 |
0 |
unless is_version '1.6.0', $self->family |
|
233
|
0 |
0 |
if ($self->family == 1) { } |
|
248
|
0 |
0 |
if ($v =~ /^\d+$/) { } |
|
257
|
0 |
0 |
if (/admin_port\s*=/) { } |
|
264
|
0 |
0 |
if (/primary_port\s*=/) { } |
|
274
|
0 |
0 |
unless open my $fh, '>:encoding(UTF-8)', $$self{'cfg'} |
|
280
|
0 |
0 |
if ($self->family == 1) |
|
283
|
0 |
0 |
if $? |
|
287
|
0 |
0 |
if $? |
|
298
|
0 |
0 |
unless ($$self{'child'} = fork) |
|
300
|
0 |
0 |
unless defined $$self{'child'} |
|
302
|
0 |
0 |
if ($self->family == 1) { } |
|
317
|
0 |
0 |
if 'IO::Socket::INET'->new('PeerAddr', '127.0.0.1', 'PeerPort', $self->primary_port) |
|
325
|
0 |
0 |
if $self->log =~ /entering event loop/ |
|
329
|
0 |
0 |
unless $self->log =~ /entering event loop/ |
|
375
|
0 |
4 |
if ($$self{'child'}) |
|
392
|
0 |
0 |
unless $$self{'child'} |
|
393
|
0 |
0 |
if 0 < CORE::kill(0, $$self{'child'}) |
|
407
|
0 |
4 |
unless $$self{'master'} == $$ |
|
409
|
0 |
4 |
if (-r $$self{'core'}) |
|
410
|
0 |
0 |
if -r $$self{'core'} |
|
415
|
4 |
0 |
if $$self{'temp'} and not $$self{'dont_unlink_temp'} |
|
427
|
0 |
0 |
unless $$self{'temp'} |
|
439
|
0 |
13 |
if exists $busy_ports{$port} |
|
440
|
0 |
13 |
$^O eq 'MSWin32' ? : |
|
|
0 |
13 |
unless 'IO::Socket::INET'->new('Listen', 5, 'LocalAddr', '127.0.0.1', 'LocalPort', $port, 'Proto', 'tcp', $^O eq 'MSWin32' ? () : ('ReuseAddr', 1)) |