X-Git-Url: http://git.rot13.org/?p=perl-Redis.git;a=blobdiff_plain;f=lib%2FRedis.pm;h=29c2746cffcd07521b443c65831215cf007869a7;hp=7d2e692f3c09bdb960ac2693f585895afdd87aab;hb=1c54c8b4b9091cabeacaa663c64deb3c6e8d72eb;hpb=844f868acac56c2900a12cc0afae7164135d8a07;ds=sidebyside

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 7d2e692..29c2746 100644
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -595,6 +595,25 @@ sub shutdown {
 	$self->_sock_send( 'SHUTDOWN' );
 }
 
+=head1 Remote server control commands
+
+=head2 info
+
+  my $info_hash = $r->info;
+
+=cut
+
+sub info {
+	my $self = shift;
+	my $info = $self->_sock_result_bulk( 'INFO' );
+	my $hash;
+	foreach my $l ( split(/\r\n/, $info ) ) {
+		my ($n,$v) = split(/:/, $l, 2);
+		$hash->{$n} = $v;
+	}
+	return $hash;
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>