| line |
true |
false |
branch |
|
71
|
0 |
0 |
unless my $redis = "Redis"->new("server", $self->server . ":" . $self->port, "name", "redis_connection", "cnx_timeout", defined $self->global && $self->global->ctimeout || 3, "read_timeout", defined $self->global && $self->global->rtimeout || 3, "write_timeout", defined $self->global && $self->global->rtimeout || 3) |
|
86
|
0 |
0 |
unless $self->brik_help_run_undef_arg("connect", $redis) |
|
100
|
0 |
0 |
unless my $redis = $self->_get_redis |
|
103
|
0 |
0 |
unless (defined $r) |
|
120
|
0 |
0 |
unless my $redis = $self->_get_redis |
|
136
|
0 |
0 |
unless my $r = $self->command("quit") |
|
158
|
0 |
0 |
unless $self->brik_help_run_undef_arg("exists", $key) |
|
167
|
0 |
0 |
unless $self->brik_help_run_undef_arg("get", $key) |
|
176
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set", $key) |
|
177
|
0 |
0 |
unless $self->brik_help_run_undef_arg("set", $value) |
|
186
|
0 |
0 |
unless $self->brik_help_run_undef_arg("del", $key) |
|
195
|
0 |
0 |
unless $self->brik_help_run_undef_arg("mget", $key_list) |
|
196
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("mget", $key_list, "ARRAY") |
|
205
|
0 |
0 |
unless $self->brik_help_run_undef_arg("hset", $hashname) |
|
206
|
0 |
0 |
unless $self->brik_help_run_undef_arg("hset", $hash) |
|
207
|
0 |
0 |
unless $self->brik_help_run_invalid_arg("hset", $hash, "HASH") |
|
209
|
0 |
0 |
unless my $redis = $self->_get_redis |
|
212
|
0 |
0 |
unless $redis->hset($hashname, $_, $hash->{$_}) |
|
224
|
0 |
0 |
unless $self->brik_help_run_undef_arg("hget", $hashname) |
|
225
|
0 |
0 |
unless $self->brik_help_run_undef_arg("hget", $field) |
|
234
|
0 |
0 |
unless $self->brik_help_run_undef_arg("hgetall", $hashname) |
|
236
|
0 |
0 |
unless my $r = $self->command("hgetall", $hashname) |
|
246
|
0 |
0 |
unless my $r = $self->command("client_list") |
|
254
|
0 |
0 |
unless my $r = $self->command("client_getname") |
|
270
|
0 |
0 |
unless $self->brik_help_run_undef_arg("list_keys", $database) |
|
272
|
0 |
0 |
unless my $r = $self->command("select", $database) |
|
275
|
0 |
0 |
unless my(@r) = $self->command_as_list("keys", $keys) |