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 |
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 |
=head1 AUTHOR |
=head1 AUTHOR |
566 |
|
|
567 |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >> |