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;
}