X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=lib%2FRedis.pm;h=6b0916d4887cbb1139152a60559ca47b29309887;hp=267fcc2e61c50e6dcad7338bc543202040496b35;hb=b8ff672c10960796e47cb49ff17473f2bb136375;hpb=64af4a24c8afba6e53561caa02d0c0f840c14dda

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 267fcc2..6b0916d 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -501,6 +501,28 @@ 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 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>