/[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 19 by dpavlin, Sun Mar 22 09:46:14 2009 UTC revision 20 by dpavlin, Sun Mar 22 09:51:34 2009 UTC
# Line 75  sub _sock_ok { Line 75  sub _sock_ok {
75          confess dump($ok) unless $ok eq "+OK\r\n";          confess dump($ok) unless $ok eq "+OK\r\n";
76  }  }
77    
78    sub _sock_send {
79            my $self = shift;
80            print $sock join(' ',@_) . "\r\n";
81            _sock_result();
82    }
83    
84  sub _sock_send_bulk {  sub _sock_send_bulk {
85          my ( $self, $command, $key, $value ) = @_;          my ( $self, $command, $key, $value ) = @_;
86          print $sock "$command $key " . length($value) . "\r\n$value\r\n";          print $sock "$command $key " . length($value) . "\r\n$value\r\n";
# Line 279  sub lpush { Line 285  sub lpush {
285          $self->_sock_send_bulk('LPUSH', $key, $value);          $self->_sock_send_bulk('LPUSH', $key, $value);
286  }  }
287    
288    =head2 llen
289    
290      $r->llen( $key );
291    
292    =cut
293    
294    sub llen {
295            my ( $self, $key ) = @_;
296            $self->_sock_send( 'llen', $key );
297    }
298    
299  =head1 AUTHOR  =head1 AUTHOR
300    
301  Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>

Legend:
Removed from v.19  
changed lines
  Added in v.20

  ViewVC Help
Powered by ViewVC 1.1.26