--- lib/Redis.pm 2009/09/14 11:37:25 63
+++ lib/Redis.pm 2010/03/17 18:22:09 69
@@ -13,14 +13,14 @@
=cut
-our $VERSION = '0.0801';
+our $VERSION = '1.2001';
=head1 DESCRIPTION
Pure perl bindings for L
-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
L
@@ -61,6 +61,13 @@
sadd => 1, srem => 1,
sismember => 1,
echo => 1,
+ getset => 1,
+ smove => 1,
+ zadd => 1,
+ zrem => 1,
+ zscore => 1,
+ zincrby => 1,
+ append => 1,
};
# we don't want DESTROY to fallback into AUTOLOAD
@@ -70,6 +77,8 @@
sub AUTOLOAD {
my $self = shift;
+ use bytes;
+
my $sock = $self->{sock} || die "no server connected";
my $command = $AUTOLOAD;
@@ -126,7 +135,7 @@
}
if ( $type eq '-' ) {
- confess $result;
+ confess "[$command] $result";
} elsif ( $type eq '+' ) {
return $result;
} elsif ( $type eq '$' ) {
@@ -410,7 +419,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright 2009 Dobrica Pavlinusic, all rights reserved.
+Copyright 2009-2010 Dobrica Pavlinusic, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.