use Tie::Hash;
use base qw/Redis Tie::StdHash/;
-use Data::Dump qw/dump/;
-
=head1 NAME
Redis::Hash - tie perl hashes into Redis
tie %name, 'Redis::Hash', 'prefix';
+ my $o = tie %foobar, 'Redis::Hash', 'foobar';
+ print $o->info->{used_memory}; # or any redis command
+
=cut
# mandatory methods