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"; |
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> >> |