/[Redis.pre-github]/lib/Redis.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.pm

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

revision 8 by dpavlin, Sat Mar 21 22:48:46 2009 UTC revision 10 by dpavlin, Sat Mar 21 23:05:02 2009 UTC
# Line 119  sub get { Line 119  sub get {
119    
120  =cut  =cut
121    
122    sub sock_result {
123            my $result = <$sock>;
124            warn "# result: ",dump( $result );
125            $result =~ s{\r\n$}{} || warn "can't find cr/lf";
126            return $result;
127    }
128            
129    
130  sub incr {  sub incr {
131          my ( $self, $key, $value ) = @_;          my ( $self, $key, $value ) = @_;
132          if ( defined $value ) {          if ( defined $value ) {
# Line 126  sub incr { Line 134  sub incr {
134          } else {          } else {
135                  print $sock "INCR $key\r\n";                  print $sock "INCR $key\r\n";
136          }          }
137          my $count = <$sock>;          sock_result();
         warn "# $key = $count";  
         return $count;  
138  }  }
139    
140  =head2 decr  =head2 decr
# Line 145  sub decr { Line 151  sub decr {
151          } else {          } else {
152                  print $sock "DECR $key\r\n";                  print $sock "DECR $key\r\n";
153          }          }
154          my $count = <$sock>;          sock_result();
155          warn "# $key = $count";  }
156          return $count;  
157    =head2 exists
158    
159      $r->exists( 'key' ) && print "got key!";
160    
161    =cut
162    
163    sub exists {
164            my ( $self, $key ) = @_;
165            print $sock "EXISTS $key\r\n";
166            sock_result();
167    }
168    
169    =head2 del
170    
171      $r->del( 'key' ) || warn "key doesn't exist";
172    
173    =cut
174    
175    sub del {
176            my ( $self, $key ) = @_;
177            print $sock "DEL $key\r\n";
178            sock_result();
179  }  }
180    
181  =head1 AUTHOR  =head1 AUTHOR
Legend:
Removed from v.8  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26