use strict;
use IO::Socket::INET;
-use Data::Dump qw/dump/;
+use Data::Dumper;
use Carp qw/confess/;
=head1 NAME
my $command = $AUTOLOAD;
$command =~ s/.*://;
- warn "## $command ",dump(@_) if $self->{debug};
+ warn "## $command ",Dumper(@_) if $self->{debug};
my $send;
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
$list[ $_ ] = $self->__read_bulk( substr(<$sock>,1,-2) );
}
- warn "## list = ", dump( @list ) if $self->{debug};
+ warn "## list = ", Dumper( @list ) if $self->{debug};
return @list;
}
use strict;
use Test::More tests => 108;
-use Data::Dump qw/dump/;
+use Data::Dumper;
use lib 'lib';
ok( my $info = $o->info, 'info' );
isa_ok( $info, 'HASH' );
-diag dump( $info );
+diag Dumper( $info );
diag "Connection handling";
use Test::More tests => 8;
use lib 'lib';
-use Data::Dump qw/dump/;
BEGIN {
use_ok( 'Redis::List' );
ok( push( @a, 'push' ), 'push' );
is_deeply( [ @a ], [ 'foo', 'bar', 'baz', 'push' ] );
-#diag dump( @a );