tie %name, 'Redis::Hash', 'prefix';
tie %name, 'Redis::Hash', 'prefix';
+ my $o = tie %foobar, 'Redis::Hash', 'foobar';
+ print $o->info->{used_memory}; # or any redis command
+
use warnings;
use strict;
use warnings;
use strict;
-use Test::More tests => 7;
+use Test::More tests => 8;
use lib 'lib';
use Data::Dump qw/dump/;
use lib 'lib';
use Data::Dump qw/dump/;
is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' );
is_deeply( \%h, { bar => 1, baz => 99, foo => 42, }, 'structure' );
+ok( my $mem = $o->info->{used_memory}, 'info' );
+diag "used memory $mem";