r50945 - in /branches/upstream/libredis-perl: ./ current/ current/Changes current/MANIFEST current/META.yml current/Makefile.PL current/README current/lib/ current/lib/Redis.pm current/t/ current/t/00-load.t current/t/pod-coverage.t current/t/pod.t
diocles at users.alioth.debian.org
diocles at users.alioth.debian.org
Thu Jan 14 21:25:19 UTC 2010
Author: diocles
Date: Thu Jan 14 21:25:15 2010
New Revision: 50945
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50945
Log:
[svn-inject] Installing original source of libredis-perl
Added:
branches/upstream/libredis-perl/
branches/upstream/libredis-perl/current/
branches/upstream/libredis-perl/current/Changes
branches/upstream/libredis-perl/current/MANIFEST
branches/upstream/libredis-perl/current/META.yml
branches/upstream/libredis-perl/current/Makefile.PL
branches/upstream/libredis-perl/current/README
branches/upstream/libredis-perl/current/lib/
branches/upstream/libredis-perl/current/lib/Redis.pm
branches/upstream/libredis-perl/current/t/
branches/upstream/libredis-perl/current/t/00-load.t
branches/upstream/libredis-perl/current/t/pod-coverage.t
branches/upstream/libredis-perl/current/t/pod.t
Added: branches/upstream/libredis-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/Changes?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/Changes (added)
+++ branches/upstream/libredis-perl/current/Changes Thu Jan 14 21:25:15 2010
@@ -1,0 +1,8 @@
+Revision history for Redis
+
+0.01 Sun Mar 22 19:02:17 CET 2009
+ First version, tracking git://github.com/antirez/redis
+
+0.08 Tue Mar 24 22:38:59 CET 2009
+ This version supports new protocol introduced in beta 8
+ Version bump to be in-sync with Redis version
Added: branches/upstream/libredis-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/MANIFEST?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/MANIFEST (added)
+++ branches/upstream/libredis-perl/current/MANIFEST Thu Jan 14 21:25:15 2010
@@ -1,0 +1,9 @@
+Changes
+MANIFEST
+Makefile.PL
+README
+lib/Redis.pm
+t/00-load.t
+t/pod-coverage.t
+t/pod.t
+META.yml Module meta-data (added by MakeMaker)
Added: branches/upstream/libredis-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/META.yml?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/META.yml (added)
+++ branches/upstream/libredis-perl/current/META.yml Thu Jan 14 21:25:15 2010
@@ -1,0 +1,17 @@
+--- #YAML:1.0
+name: Redis
+version: 0.0801
+abstract: perl binding for Redis database
+license: ~
+author:
+ - Dobrica Pavlinusic <dpavlin at rot13.org>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
+ Carp: 0
+ Data::Dumper: 0
+ IO::Socket::INET: 0
+ Test::More: 0
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Added: branches/upstream/libredis-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/Makefile.PL?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/Makefile.PL (added)
+++ branches/upstream/libredis-perl/current/Makefile.PL Thu Jan 14 21:25:15 2010
@@ -1,0 +1,19 @@
+use strict;
+use warnings;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Redis',
+ AUTHOR => 'Dobrica Pavlinusic <dpavlin at rot13.org>',
+ VERSION_FROM => 'lib/Redis.pm',
+ ABSTRACT_FROM => 'lib/Redis.pm',
+ PL_FILES => {},
+ PREREQ_PM => {
+ 'Test::More' => 0,
+ 'IO::Socket::INET' => 0,
+ 'Data::Dumper' => 0,
+ 'Carp' => 0,
+ },
+ dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
+ clean => { FILES => 'Redis-*' },
+);
Added: branches/upstream/libredis-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/README?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/README (added)
+++ branches/upstream/libredis-perl/current/README Thu Jan 14 21:25:15 2010
@@ -1,0 +1,43 @@
+Redis
+
+Perl binding for Redis database which is in-memory hash store with
+support for scalars, arrays and sets and disk persistence.
+
+INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the
+perldoc command.
+
+ perldoc Redis
+
+You can also look for information at:
+
+ RT, CPAN's request tracker
+ http://rt.cpan.org/NoAuth/Bugs.html?Dist=Redis
+
+ AnnoCPAN, Annotated CPAN documentation
+ http://annocpan.org/dist/Redis
+
+ CPAN Ratings
+ http://cpanratings.perl.org/d/Redis
+
+ Search CPAN
+ http://search.cpan.org/dist/Redis
+
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2009 Dobrica Pavlinusic
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
Added: branches/upstream/libredis-perl/current/lib/Redis.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/lib/Redis.pm?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/lib/Redis.pm (added)
+++ branches/upstream/libredis-perl/current/lib/Redis.pm Thu Jan 14 21:25:15 2010
@@ -1,0 +1,421 @@
+package Redis;
+
+use warnings;
+use strict;
+
+use IO::Socket::INET;
+use Data::Dumper;
+use Carp qw/confess/;
+
+=head1 NAME
+
+Redis - perl binding for Redis database
+
+=cut
+
+our $VERSION = '0.0801';
+
+
+=head1 DESCRIPTION
+
+Pure perl bindings for L<http://code.google.com/p/redis/>
+
+This version support git version 0.08 or later of Redis available at
+
+L<git://github.com/antirez/redis>
+
+This documentation
+lists commands which are exercised in test suite, but
+additinal commands will work correctly since protocol
+specifies enough information to support almost all commands
+with same peace of code with a little help of C<AUTOLOAD>.
+
+=head1 FUNCTIONS
+
+=head2 new
+
+ my $r = Redis->new; # $ENV{REDIS_SERVER} or 127.0.0.1:6379
+
+ my $r = Redis->new( server => '192.168.0.1:6379', debug = 0 );
+
+=cut
+
+sub new {
+ my $class = shift;
+ my $self = {@_};
+ $self->{debug} ||= $ENV{REDIS_DEBUG};
+
+ $self->{sock} = IO::Socket::INET->new(
+ PeerAddr => $self->{server} || $ENV{REDIS_SERVER} || '127.0.0.1:6379',
+ Proto => 'tcp',
+ ) || die $!;
+
+ bless($self, $class);
+ $self;
+}
+
+my $bulk_command = {
+ set => 1, setnx => 1,
+ rpush => 1, lpush => 1,
+ lset => 1, lrem => 1,
+ sadd => 1, srem => 1,
+ sismember => 1,
+ echo => 1,
+};
+
+# we don't want DESTROY to fallback into AUTOLOAD
+sub DESTROY {}
+
+our $AUTOLOAD;
+sub AUTOLOAD {
+ my $self = shift;
+
+ my $sock = $self->{sock} || die "no server connected";
+
+ my $command = $AUTOLOAD;
+ $command =~ s/.*://;
+
+ warn "## $command ",Dumper(@_) if $self->{debug};
+
+ my $send;
+
+ if ( defined $bulk_command->{$command} ) {
+ my $value = pop;
+ $value = '' if ! defined $value;
+ $send
+ = uc($command)
+ . ' '
+ . join(' ', @_)
+ . ' '
+ . length( $value )
+ . "\r\n$value\r\n"
+ ;
+ } else {
+ $send
+ = uc($command)
+ . ' '
+ . join(' ', @_)
+ . "\r\n"
+ ;
+ }
+
+ warn ">> $send" if $self->{debug};
+ print $sock $send;
+
+ if ( $command eq 'quit' ) {
+ close( $sock ) || die "can't close socket: $!";
+ return 1;
+ }
+
+ my $result = <$sock> || die "can't read socket: $!";
+ warn "<< $result" if $self->{debug};
+ my $type = substr($result,0,1);
+ $result = substr($result,1,-2);
+
+ if ( $command eq 'info' ) {
+ my $hash;
+ foreach my $l ( split(/\r\n/, $self->__read_bulk($result) ) ) {
+ my ($n,$v) = split(/:/, $l, 2);
+ $hash->{$n} = $v;
+ }
+ return $hash;
+ } elsif ( $command eq 'keys' ) {
+ my $keys = $self->__read_bulk($result);
+ return split(/\s/, $keys) if $keys;
+ return;
+ }
+
+ if ( $type eq '-' ) {
+ confess $result;
+ } elsif ( $type eq '+' ) {
+ return $result;
+ } elsif ( $type eq '$' ) {
+ return $self->__read_bulk($result);
+ } elsif ( $type eq '*' ) {
+ return $self->__read_multi_bulk($result);
+ } elsif ( $type eq ':' ) {
+ return $result; # FIXME check if int?
+ } else {
+ confess "unknown type: $type", $self->__read_line();
+ }
+}
+
+sub __read_bulk {
+ my ($self,$len) = @_;
+ return undef if $len < 0;
+
+ my $v;
+ if ( $len > 0 ) {
+ read($self->{sock}, $v, $len) || die $!;
+ warn "<< ",Dumper($v),$/ if $self->{debug};
+ }
+ my $crlf;
+ read($self->{sock}, $crlf, 2); # skip cr/lf
+ return $v;
+}
+
+sub __read_multi_bulk {
+ my ($self,$size) = @_;
+ return undef if $size < 0;
+ my $sock = $self->{sock};
+
+ $size--;
+
+ my @list = ( 0 .. $size );
+ foreach ( 0 .. $size ) {
+ $list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );
+ }
+
+ warn "## list = ", Dumper( @list ) if $self->{debug};
+ return @list;
+}
+
+1;
+
+__END__
+
+=head1 Connection Handling
+
+=head2 quit
+
+ $r->quit;
+
+=head2 ping
+
+ $r->ping || die "no server?";
+
+=head1 Commands operating on string values
+
+=head2 set
+
+ $r->set( foo => 'bar' );
+
+ $r->setnx( foo => 42 );
+
+=head2 get
+
+ my $value = $r->get( 'foo' );
+
+=head2 mget
+
+ my @values = $r->mget( 'foo', 'bar', 'baz' );
+
+=head2 incr
+
+ $r->incr('counter');
+
+ $r->incrby('tripplets', 3);
+
+=head2 decr
+
+ $r->decr('counter');
+
+ $r->decrby('tripplets', 3);
+
+=head2 exists
+
+ $r->exists( 'key' ) && print "got key!";
+
+=head2 del
+
+ $r->del( 'key' ) || warn "key doesn't exist";
+
+=head2 type
+
+ $r->type( 'key' ); # = string
+
+=head1 Commands operating on the key space
+
+=head2 keys
+
+ my @keys = $r->keys( '*glob_pattern*' );
+
+=head2 randomkey
+
+ my $key = $r->randomkey;
+
+=head2 rename
+
+ my $ok = $r->rename( 'old-key', 'new-key', $new );
+
+=head2 dbsize
+
+ my $nr_keys = $r->dbsize;
+
+=head1 Commands operating on lists
+
+See also L<Redis::List> for tie interface.
+
+=head2 rpush
+
+ $r->rpush( $key, $value );
+
+=head2 lpush
+
+ $r->lpush( $key, $value );
+
+=head2 llen
+
+ $r->llen( $key );
+
+=head2 lrange
+
+ my @list = $r->lrange( $key, $start, $end );
+
+=head2 ltrim
+
+ my $ok = $r->ltrim( $key, $start, $end );
+
+=head2 lindex
+
+ $r->lindex( $key, $index );
+
+=head2 lset
+
+ $r->lset( $key, $index, $value );
+
+=head2 lrem
+
+ my $modified_count = $r->lrem( $key, $count, $value );
+
+=head2 lpop
+
+ my $value = $r->lpop( $key );
+
+=head2 rpop
+
+ my $value = $r->rpop( $key );
+
+=head1 Commands operating on sets
+
+=head2 sadd
+
+ $r->sadd( $key, $member );
+
+=head2 srem
+
+ $r->srem( $key, $member );
+
+=head2 scard
+
+ my $elements = $r->scard( $key );
+
+=head2 sismember
+
+ $r->sismember( $key, $member );
+
+=head2 sinter
+
+ $r->sinter( $key1, $key2, ... );
+
+=head2 sinterstore
+
+ my $ok = $r->sinterstore( $dstkey, $key1, $key2, ... );
+
+=head1 Multiple databases handling commands
+
+=head2 select
+
+ $r->select( $dbindex ); # 0 for new clients
+
+=head2 move
+
+ $r->move( $key, $dbindex );
+
+=head2 flushdb
+
+ $r->flushdb;
+
+=head2 flushall
+
+ $r->flushall;
+
+=head1 Sorting
+
+=head2 sort
+
+ $r->sort("key BY pattern LIMIT start end GET pattern ASC|DESC ALPHA');
+
+=head1 Persistence control commands
+
+=head2 save
+
+ $r->save;
+
+=head2 bgsave
+
+ $r->bgsave;
+
+=head2 lastsave
+
+ $r->lastsave;
+
+=head2 shutdown
+
+ $r->shutdown;
+
+=head1 Remote server control commands
+
+=head2 info
+
+ my $info_hash = $r->info;
+
+=head1 AUTHOR
+
+Dobrica Pavlinusic, C<< <dpavlin at rot13.org> >>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to C<bug-redis at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Redis>. I will be notified, and then you'll
+automatically be notified of progress on your bug as I make changes.
+
+
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+ perldoc Redis
+ perldoc Redis::List
+ perldoc Redis::Hash
+
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Redis>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Redis>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Redis>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Redis>
+
+=back
+
+
+=head1 ACKNOWLEDGEMENTS
+
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2009 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.
+
+
+=cut
+
+1; # End of Redis
Added: branches/upstream/libredis-perl/current/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/t/00-load.t?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/t/00-load.t (added)
+++ branches/upstream/libredis-perl/current/t/00-load.t Thu Jan 14 21:25:15 2010
@@ -1,0 +1,9 @@
+#!perl -T
+
+use Test::More tests => 1;
+
+BEGIN {
+ use_ok( 'Redis' );
+}
+
+diag( "Testing Redis $Redis::VERSION, Perl $], $^X" );
Added: branches/upstream/libredis-perl/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/t/pod-coverage.t?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/t/pod-coverage.t (added)
+++ branches/upstream/libredis-perl/current/t/pod-coverage.t Thu Jan 14 21:25:15 2010
@@ -1,0 +1,18 @@
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod::Coverage
+my $min_tpc = 1.08;
+eval "use Test::Pod::Coverage $min_tpc";
+plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
+ if $@;
+
+# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
+# but older versions don't recognize some common documentation styles
+my $min_pc = 0.18;
+eval "use Pod::Coverage $min_pc";
+plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
+ if $@;
+
+all_pod_coverage_ok();
Added: branches/upstream/libredis-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libredis-perl/current/t/pod.t?rev=50945&op=file
==============================================================================
--- branches/upstream/libredis-perl/current/t/pod.t (added)
+++ branches/upstream/libredis-perl/current/t/pod.t Thu Jan 14 21:25:15 2010
@@ -1,0 +1,12 @@
+#!perl -T
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list