/[Redis.pre-github]/lib/Redis/Hash.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Redis/Hash.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42 by dpavlin, Sun Mar 22 19:17:51 2009 UTC revision 59 by dpavlin, Wed Jun 17 16:49:17 2009 UTC
# Line 6  use warnings; Line 6  use warnings;
6  use Tie::Hash;  use Tie::Hash;
7  use base qw/Redis Tie::StdHash/;  use base qw/Redis Tie::StdHash/;
8    
9    use Data::Dump qw/dump/;
10    
11  =head1 NAME  =head1 NAME
12    
13  Redis::Hash - tie perl hashes into Redis  Redis::Hash - tie perl hashes into Redis
14    
15  =head1 SYNOPSYS  =head1 SYNOPSYS
16    
17    tie %$name, 'Redis::Hash', 'name';    tie %name, 'Redis::Hash', 'prefix';
18    
19      my $o = tie %foobar, 'Redis::Hash', 'foobar';
20      print $o->info->{used_memory}; # or any redis command
21    
22  =cut  =cut
23    
24  # mandatory methods  # mandatory methods
25  sub TIEHASH {  sub TIEHASH {
26          my ($class,$name) = @_;          my ($class,$name) = @_;
27          my $self = $class->new;          my $self = Redis->new;
28            $name .= ':' if $name;
29          $self->{name} = $name || '';          $self->{name} = $name || '';
30          bless $self => $class;          bless $self => $class;
31  }  }
# Line 36  sub FETCH { Line 42  sub FETCH {
42    
43  sub FIRSTKEY {  sub FIRSTKEY {
44          my $self = shift;          my $self = shift;
45          $self->{keys} = [ $self->keys( $self->{name} . '*') ];          $self->{keys} = [ $self->keys( $self->{name} . '*' ) ];
46          unshift @{ $self->{keys} };          $self->NEXTKEY;
47  }  }
48    
49  sub NEXTKEY {  sub NEXTKEY {
50          my $self = shift;          my $self = shift;
51          unshift @{ $self->{keys} };          my $key = shift @{ $self->{keys} } || return;
52            my $name = $self->{name};
53            $key =~ s{^$name}{} || warn "can't strip $name from $key";
54            return $key;
55  }  }
56    
57  sub EXISTS {  sub EXISTS {
# Line 58  sub DELETE { Line 67  sub DELETE {
67  sub CLEAR {  sub CLEAR {
68          my ($self) = @_;          my ($self) = @_;
69          $self->del( $_ ) foreach ( $self->keys( $self->{name} . '*' ) );          $self->del( $_ ) foreach ( $self->keys( $self->{name} . '*' ) );
70            $self->{keys} = [];
71  }  }
72    
73  1;  1;
Legend:
Removed from v.42  
changed lines
  Added in v.59
  ViewVC Help
Powered by ViewVC 1.1.26