$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> >>
use strict;
use Test::More tests => 106;
+use Data::Dump qw/dump/;
use lib 'lib';
ok( $o->save, 'save' );
ok( $o->bgsave, 'bgsave' );
ok( $o->lastsave, 'lastsave' );
-ok( $o->shutdown, 'shutdown' );
+#ok( $o->shutdown, 'shutdown' );
+diag "shutdown not tested";
+
+diag "Remote server control commands";
+
+ok( my $info = $o->info, 'info' );
+diag dump( $info );
diag "Connection handling";