7 use base qw/Redis Tie::StdHash/;
11 Redis::Hash - tie perl hashes into Redis
15 tie %$name, 'Redis::Hash', 'name';
21 my ($class,$name) = @_;
22 my $self = $class->new;
23 $self->{name} = $name || '';
24 bless $self => $class;
28 my ($self,$key,$value) = @_;
29 $self->set( $self->{name} . $key, $value );
34 $self->get( $self->{name} . $key );
39 $self->{keys} = [ $self->keys( $self->{name} . '*') ];
40 unshift @{ $self->{keys} };
45 unshift @{ $self->{keys} };
50 $self->exists( $self->{name} . $key );
55 $self->del( $self->{name} . $key );
60 $self->del( $_ ) foreach ( $self->keys( $self->{name} . '*' ) );