info

[perl-Redis.git] / lib / Redis.pm

diff --git a/lib/Redis.pm b/lib/Redis.pm
index 7d2e692..29c2746 100644 (file)
--- a/lib/Redis.pm
+++ b/lib/Redis.pm
@@ -595,6 +595,25 @@ sub shutdown {
        $self->_sock_send( '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> >>
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>