258 |
|
|
259 |
sub keys { |
sub keys { |
260 |
my ( $self, $glob ) = @_; |
my ( $self, $glob ) = @_; |
261 |
return split(/\s/, $self->_sock_result_bulk( 'KEYS', $glob )); |
my $keys = $self->_sock_result_bulk( 'KEYS', $glob ); |
262 |
|
return split(/\s/, $keys) if $keys; |
263 |
|
return () if wantarray; |
264 |
} |
} |
265 |
|
|
266 |
=head2 randomkey |
=head2 randomkey |
503 |
$self->_sock_send( 'MOVE', $key, $dbindex ); |
$self->_sock_send( 'MOVE', $key, $dbindex ); |
504 |
} |
} |
505 |
|
|
506 |
|
=head2 flushdb |
507 |
|
|
508 |
|
$r->flushdb; |
509 |
|
|
510 |
|
=cut |
511 |
|
|
512 |
|
sub flushdb { |
513 |
|
my $self = shift; |
514 |
|
$self->_sock_send_ok('FLUSHDB'); |
515 |
|
} |
516 |
|
|
517 |
|
=head2 flushall |
518 |
|
|
519 |
|
$r->flushall; |
520 |
|
|
521 |
|
=cut |
522 |
|
|
523 |
|
sub flushall { |
524 |
|
my $self = shift; |
525 |
|
$self->_sock_send_ok('flushall'); |
526 |
|
} |
527 |
|
|
528 |
=head1 AUTHOR |
=head1 AUTHOR |
529 |
|
|
530 |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |