| 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) |