| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless $p->getoptionsfromarray(\@argv, $opt, ('redis=s', 'expires=i', 'keep', 'n', 'N', 'x', 'X', 'version')) |
|
70
|
0 |
0 |
if ($opt->{'version'}) |
|
74
|
0 |
0 |
if $opt->{'n'} |
|
75
|
0 |
0 |
if $opt->{'x'} |
|
76
|
0 |
0 |
unless defined $opt->{'expires'} |
|
85
|
0 |
0 |
defined $expires ? : |
|
89
|
0 |
0 |
unless my $token = try_get_lock($redis, $opt, $key) |
|
103
|
0 |
0 |
if not defined $key or @command == 0 |
|
105
|
0 |
0 |
unless my $redis = connect_to_redis_server($opt) |
|
108
|
0 |
0 |
unless validate_redis_version($redis) |
|
111
|
0 |
0 |
if (my $token = try_get_lock($redis, $opt, $key)) { } |
|
119
|
0 |
0 |
if ($opt->{'exit_code'}) |
|
133
|
0 |
0 |
$opt->{'wait'} ? : |
|
150
|
0 |
0 |
if ($major >= 3 or $major == 2 and $minor >= 7 or $major == 2 and $minor == 6 and $rev >= 12) |
|
170
|
0 |
0 |
if ($got_lock) { } |
|
|
0 |
0 |
elsif (not $opt->{'wait'}) { } |
|
179
|
0 |
0 |
if ($WAIT_QUEUE) { } |
|
186
|
0 |
0 |
if $got_lock |
|
191
|
0 |
0 |
if ($opt->{'keep'}) { } |
|
196
|
0 |
0 |
if ($WAIT_QUEUE) { } |
|
208
|
0 |
0 |
if (my $pid = fork) { } |
|
222
|
0 |
0 |
if ($code == -1) { } |
|
|
0 |
0 |
elsif ($code & 127) { } |