--- 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.