--- lib/Redis.pm 2009/03/23 11:40:50 50 +++ lib/Redis.pm 2009/03/23 11:44:25 51 @@ -595,6 +595,25 @@ $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<< >>