App-redis_traffic_stats
view release on metacpan or search on metacpan
123456789101112131415161718192021package
t::Util;
use
strict;
use
warnings;
our
@EXPORT
=
qw(p)
;
use
Data::Dumper;
sub
p($) {
local
$Data::Dumper::Indent
= 1;
local
$Data::Dumper::Deepcopy
= 1;
local
$Data::Dumper::Sortkeys
= 1;
local
$Data::Dumper::Terse
= 1;
local
$Data::Dumper::Useqq
= 1;
local
$Data::Dumper::Quotekeys
= 0;
my
$d
= Dumper(
$_
[0]);
$d
=~ s/\\x{([0-9a-z]+)}/
chr
(
hex
($1))/ge;
STDERR
$d
;
}
( run in 0.240 second using v1.01-cache-2.11-cpan-55f5a4728d2 )