X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=lib%2FRedis.pm;h=6c88fd53c7b404c1eaeb4ef233c14379197e0502;hp=f0b21a28b0496ccf200e2a82bcbe1b0b3dd0f5a1;hb=63abbe056d199d6634093dbca16407b5070c0af0;hpb=889c043608d6efadbd7363e3e7fb3571ec8e15c6

diff --git a/lib/Redis.pm b/lib/Redis.pm
index f0b21a2..6c88fd5 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -209,6 +209,18 @@ sub keys {
 	return split(/\s/, _sock_result_bulk());
 }
 
+=head2 randomkey
+
+  my $key = $r->randomkey;
+
+=cut
+
+sub randomkey {
+	my ( $self, $glob ) = @_;
+	print $sock "RANDOMKEY\r\n";
+	_sock_result();
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>