summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9d787cb)
PREREQ_PM => {
'Test::More' => 0,
'IO::Socket::INET' => 0,
PREREQ_PM => {
'Test::More' => 0,
'IO::Socket::INET' => 0,
'Carp' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
'Carp' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
use strict;
use IO::Socket::INET;
use strict;
use IO::Socket::INET;
-use Data::Dump qw/dump/;
use Carp qw/confess/;
=head1 NAME
use Carp qw/confess/;
=head1 NAME
my $command = $AUTOLOAD;
$command =~ s/.*://;
my $command = $AUTOLOAD;
$command =~ s/.*://;
- warn "## $command ",dump(@_) if $self->{debug};
+ warn "## $command ",Dumper(@_) if $self->{debug};
my $v;
if ( $len > 0 ) {
read($self->{sock}, $v, $len) || die $!;
my $v;
if ( $len > 0 ) {
read($self->{sock}, $v, $len) || die $!;
- warn "<< ",dump($v),$/ if $self->{debug};
+ warn "<< ",Dumper($v),$/ if $self->{debug};
}
my $crlf;
read($self->{sock}, $crlf, 2); # skip cr/lf
}
my $crlf;
read($self->{sock}, $crlf, 2); # skip cr/lf
$list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );
}
$list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );
}
- warn "## list = ", dump( @list ) if $self->{debug};
+ warn "## list = ", Dumper( @list ) if $self->{debug};
use Tie::Hash;
use base qw/Redis Tie::StdHash/;
use Tie::Hash;
use base qw/Redis Tie::StdHash/;
-use Data::Dump qw/dump/;
-
=head1 NAME
Redis::Hash - tie perl hashes into Redis
=head1 NAME
Redis::Hash - tie perl hashes into Redis
use strict;
use Test::More tests => 108;
use strict;
use Test::More tests => 108;
-use Data::Dump qw/dump/;
ok( my $info = $o->info, 'info' );
isa_ok( $info, 'HASH' );
ok( my $info = $o->info, 'info' );
isa_ok( $info, 'HASH' );
diag "Connection handling";
diag "Connection handling";
use Test::More tests => 8;
use lib 'lib';
use Test::More tests => 8;
use lib 'lib';
-use Data::Dump qw/dump/;
BEGIN {
use_ok( 'Redis::List' );
BEGIN {
use_ok( 'Redis::List' );
ok( push( @a, 'push' ), 'push' );
is_deeply( [ @a ], [ 'foo', 'bar', 'baz', 'push' ] );
ok( push( @a, 'push' ), 'push' );
is_deeply( [ @a ], [ 'foo', 'bar', 'baz', 'push' ] );
use Test::More tests => 8;
use lib 'lib';
use Test::More tests => 8;
use lib 'lib';
-use Data::Dump qw/dump/;
BEGIN {
use_ok( 'Redis::Hash' );
BEGIN {
use_ok( 'Redis::Hash' );