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 |
12 |
unless any sub {
$family == $_;
}
, 1, 2 |
91
|
12 |
0 |
if ($family == 1) { } |
103
|
12 |
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 |
0 |
unless my $cfg_file = delete $opts{'cfg'} |
116
|
0 |
0 |
unless -r $cfg_file |
117
|
0 |
0 |
unless open my $fh, '<:encoding(UTF-8)', $cfg_file |
122
|
0 |
0 |
unless any sub {
$family == $_;
}
, 1, 2 |
135
|
0 |
0 |
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 |
0 |
if ($ENV{'TARANTOOL_TEMPDIR'}) { } |
206
|
0 |
0 |
if -d $$self{'temp'} |
212
|
0 |
0 |
if ($self->family) { } |
223
|
0 |
0 |
if ($self->family == 1) { } |
224
|
0 |
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 (/primary_port\s*=/) { } |
270
|
0 |
0 |
unless open my $fh, '>:encoding(UTF-8)', $$self{'cfg'} |
278
|
0 |
0 |
if ($self->family == 1) |
281
|
0 |
0 |
if $? |
285
|
0 |
0 |
if $? |
296
|
0 |
0 |
unless ($$self{'child'} = fork) |
298
|
0 |
0 |
unless defined $$self{'child'} |
300
|
0 |
0 |
if ($self->family == 1) { } |
315
|
0 |
0 |
if 'IO::Socket::INET'->new('PeerAddr', '127.0.0.1', 'PeerPort', $self->primary_port) |
323
|
0 |
0 |
if $self->log =~ /entering event loop/ |
327
|
0 |
0 |
unless $self->log =~ /entering event loop/ |
373
|
0 |
0 |
if ($$self{'child'}) |
390
|
0 |
0 |
unless $$self{'child'} |
391
|
0 |
0 |
if 0 < CORE::kill(0, $$self{'child'}) |
405
|
0 |
0 |
unless $$self{'master'} == $$ |
407
|
0 |
0 |
if (-r $$self{'core'}) |
408
|
0 |
0 |
if -r $$self{'core'} |
413
|
0 |
0 |
if $$self{'temp'} and not $$self{'dont_unlink_temp'} |
425
|
0 |
0 |
unless $$self{'temp'} |
437
|
0 |
1 |
if exists $busy_ports{$port} |
438
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
0 |
1 |
unless 'IO::Socket::INET'->new('Listen', 5, 'LocalAddr', '127.0.0.1', 'LocalPort', $port, 'Proto', 'tcp', $^O eq 'MSWin32' ? () : ('ReuseAddr', 1)) |