/[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 43 by dpavlin, Sun Mar 22 20:04: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  =cut  =cut
20    
21  # mandatory methods  # mandatory methods
22  sub TIEHASH {  sub TIEHASH {
23          my ($class,$name) = @_;          my ($class,$name) = @_;
24          my $self = $class->new;          my $self = Redis->new;
25            $name .= ':' if $name;
26          $self->{name} = $name || '';          $self->{name} = $name || '';
27          bless $self => $class;          bless $self => $class;
28  }  }
# Line 36  sub FETCH { Line 39  sub FETCH {
39    
40  sub FIRSTKEY {  sub FIRSTKEY {
41          my $self = shift;          my $self = shift;
42          $self->{keys} = [ $self->keys( $self->{name} . '*') ];          $self->{keys} = [ $self->keys( $self->{name} . '*' ) ];
43          unshift @{ $self->{keys} };          $self->NEXTKEY;
44  }  }
45    
46  sub NEXTKEY {  sub NEXTKEY {
47          my $self = shift;          my $self = shift;
48          unshift @{ $self->{keys} };          my $key = shift @{ $self->{keys} } || return;
49            my $name = $self->{name};
50            $key =~ s{^$name}{} || warn "can't strip $name from $key";
51            return $key;
52  }  }
53    
54  sub EXISTS {  sub EXISTS {
# Line 58  sub DELETE { Line 64  sub DELETE {
64  sub CLEAR {  sub CLEAR {
65          my ($self) = @_;          my ($self) = @_;
66          $self->del( $_ ) foreach ( $self->keys( $self->{name} . '*' ) );          $self->del( $_ ) foreach ( $self->keys( $self->{name} . '*' ) );
67            $self->{keys} = [];
68  }  }
69    
70  1;  1;
Legend:
Removed from v.42  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26