/[Redis.pre-github]/lib/Redis.pm

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /lib/Redis.pm

Parent Directory | Revision Log | View Patch Patch

-revision 40 by dpavlin,
Sun Mar 22 18:39:06 2009 UTC
+revision 47 by dpavlin,
Mon Mar 23 11:30:40 2009 UTC
 Line 186 
 sub set {
  sub get {
          my $self = shift;
-         $self->_sock_result_bulk('GET', @_);
+         $self->_sock_result_bulk('GET',@_);
+ }
+ =head2 mget
+   my @values = $r->get( 'foo', 'bar', 'baz' );
+ =cut
+ sub mget {
+         my $self = shift;
+         $self->_sock_result_bulk_list('MGET',@_);
  }
  =head2 incr
-Line 258 
 sub type {
+Line 269 
 sub type {
  sub keys {
          my ( $self, $glob ) = @_;
-         return split(/\s/, $self->_sock_result_bulk( 'KEYS', $glob ));
+         my $keys = $self->_sock_result_bulk( 'KEYS', $glob );
+         return split(/\s/, $keys) if $keys;
+         return () if wantarray;
  }
  =head2 randomkey
-Line 501 
 sub move {
+Line 514 
 sub move {
          $self->_sock_send( 'MOVE', $key, $dbindex );
  }
+ =head2 flushdb
+   $r->flushdb;
+ =cut
+ sub flushdb {
+         my $self = shift;
+         $self->_sock_send_ok('FLUSHDB');
+ }
+ =head2 flushall
+   $r->flushall;
+ =cut
+ sub flushall {
+         my $self = shift;
+         $self->_sock_send_ok('flushall');
+ }
+ =head1 Sorting
+   $r->sort("key BY pattern LIMIT start end GET pattern ASC|DESC ALPHA');
+ =cut
+ sub sort {
+         my ( $self, $sort ) = @_;
+         $self->_sock_result_bulk_list( "SORT $sort" );
+ }
  =head1 AUTHOR
  Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>

 Legend:



Removed from v.40
 


changed lines


 
Added in v.47
 Legend:



Removed from v.40
 


changed lines


 
Added in v.47
-Removed from v.40
+Added in v.47

	ViewVC Help
Powered by ViewVC 1.1.26