186 |
|
|
187 |
sub get { |
sub get { |
188 |
my $self = shift; |
my $self = shift; |
189 |
$self->_sock_result_bulk('GET', @_); |
$self->_sock_result_bulk('GET',@_); |
190 |
|
} |
191 |
|
|
192 |
|
=head2 mget |
193 |
|
|
194 |
|
my @values = $r->get( 'foo', 'bar', 'baz' ); |
195 |
|
|
196 |
|
=cut |
197 |
|
|
198 |
|
sub mget { |
199 |
|
my $self = shift; |
200 |
|
$self->_sock_result_bulk_list('MGET',@_); |
201 |
} |
} |
202 |
|
|
203 |
=head2 incr |
=head2 incr |
269 |
|
|
270 |
sub keys { |
sub keys { |
271 |
my ( $self, $glob ) = @_; |
my ( $self, $glob ) = @_; |
272 |
return split(/\s/, $self->_sock_result_bulk( 'KEYS', $glob )); |
my $keys = $self->_sock_result_bulk( 'KEYS', $glob ); |
273 |
|
return split(/\s/, $keys) if $keys; |
274 |
|
return () if wantarray; |
275 |
} |
} |
276 |
|
|
277 |
=head2 randomkey |
=head2 randomkey |
536 |
$self->_sock_send_ok('flushall'); |
$self->_sock_send_ok('flushall'); |
537 |
} |
} |
538 |
|
|
539 |
|
=head1 Sorting |
540 |
|
|
541 |
|
=head2 sort |
542 |
|
|
543 |
|
$r->sort("key BY pattern LIMIT start end GET pattern ASC|DESC ALPHA'); |
544 |
|
|
545 |
|
=cut |
546 |
|
|
547 |
|
sub sort { |
548 |
|
my ( $self, $sort ) = @_; |
549 |
|
$self->_sock_result_bulk_list( "SORT $sort" ); |
550 |
|
} |
551 |
|
|
552 |
|
=head1 Persistence control commands |
553 |
|
|
554 |
|
=head2 save |
555 |
|
|
556 |
|
$r->save; |
557 |
|
|
558 |
|
=cut |
559 |
|
|
560 |
|
sub save { |
561 |
|
my $self = shift; |
562 |
|
$self->_sock_send_ok( 'SAVE' ); |
563 |
|
} |
564 |
|
|
565 |
|
=head2 bgsave |
566 |
|
|
567 |
|
$r->bgsave; |
568 |
|
|
569 |
|
=cut |
570 |
|
|
571 |
|
sub bgsave { |
572 |
|
my $self = shift; |
573 |
|
$self->_sock_send_ok( 'BGSAVE' ); |
574 |
|
} |
575 |
|
|
576 |
|
=head2 lastsave |
577 |
|
|
578 |
|
$r->lastsave; |
579 |
|
|
580 |
|
=cut |
581 |
|
|
582 |
|
sub lastsave { |
583 |
|
my $self = shift; |
584 |
|
$self->_sock_send( 'LASTSAVE' ); |
585 |
|
} |
586 |
|
|
587 |
|
=head2 shutdown |
588 |
|
|
589 |
|
$r->shutdown; |
590 |
|
|
591 |
|
=cut |
592 |
|
|
593 |
|
sub shutdown { |
594 |
|
my $self = shift; |
595 |
|
$self->_sock_send( 'SHUTDOWN' ); |
596 |
|
} |
597 |
|
|
598 |
=head1 AUTHOR |
=head1 AUTHOR |
599 |
|
|
600 |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |