13 |
|
|
14 |
=cut |
=cut |
15 |
|
|
16 |
our $VERSION = '0.0801'; |
our $VERSION = '1.2001'; |
17 |
|
|
18 |
|
|
19 |
=head1 DESCRIPTION |
=head1 DESCRIPTION |
20 |
|
|
21 |
Pure perl bindings for L<http://code.google.com/p/redis/> |
Pure perl bindings for L<http://code.google.com/p/redis/> |
22 |
|
|
23 |
This version support git version 0.08 or later of Redis available at |
This version supports protocol 1.2 or later of Redis available at |
24 |
|
|
25 |
L<git://github.com/antirez/redis> |
L<git://github.com/antirez/redis> |
26 |
|
|
61 |
sadd => 1, srem => 1, |
sadd => 1, srem => 1, |
62 |
sismember => 1, |
sismember => 1, |
63 |
echo => 1, |
echo => 1, |
64 |
|
getset => 1, |
65 |
|
smove => 1, |
66 |
|
zadd => 1, |
67 |
|
zrem => 1, |
68 |
|
zscore => 1, |
69 |
|
zincrby => 1, |
70 |
|
append => 1, |
71 |
}; |
}; |
72 |
|
|
73 |
# we don't want DESTROY to fallback into AUTOLOAD |
# we don't want DESTROY to fallback into AUTOLOAD |
77 |
sub AUTOLOAD { |
sub AUTOLOAD { |
78 |
my $self = shift; |
my $self = shift; |
79 |
|
|
80 |
|
use bytes; |
81 |
|
|
82 |
my $sock = $self->{sock} || die "no server connected"; |
my $sock = $self->{sock} || die "no server connected"; |
83 |
|
|
84 |
my $command = $AUTOLOAD; |
my $command = $AUTOLOAD; |
135 |
} |
} |
136 |
|
|
137 |
if ( $type eq '-' ) { |
if ( $type eq '-' ) { |
138 |
confess $result; |
confess "[$command] $result"; |
139 |
} elsif ( $type eq '+' ) { |
} elsif ( $type eq '+' ) { |
140 |
return $result; |
return $result; |
141 |
} elsif ( $type eq '$' ) { |
} elsif ( $type eq '$' ) { |
419 |
|
|
420 |
=head1 COPYRIGHT & LICENSE |
=head1 COPYRIGHT & LICENSE |
421 |
|
|
422 |
Copyright 2009 Dobrica Pavlinusic, all rights reserved. |
Copyright 2009-2010 Dobrica Pavlinusic, all rights reserved. |
423 |
|
|
424 |
This program is free software; you can redistribute it and/or modify it |
This program is free software; you can redistribute it and/or modify it |
425 |
under the same terms as Perl itself. |
under the same terms as Perl itself. |