[libanyevent-rabbitmq-perl] 111/151: improve Data::Dumper options for protocol dumps
Damyan Ivanov
dmn at moszumanska.debian.org
Thu Jan 16 11:03:08 UTC 2014
This is an automated email from the git hooks/post-receive script.
dmn pushed a commit to annotated tag debian/1.12-1
in repository libanyevent-rabbitmq-perl.
commit 337cd29e82b00cd11d1040003be624a6ce77e6ca
Author: Chip Salzenberg <chip at topsy.com>
Date: Sun Aug 26 17:50:58 2012 -0700
improve Data::Dumper options for protocol dumps
---
lib/AnyEvent/RabbitMQ.pm | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/lib/AnyEvent/RabbitMQ.pm b/lib/AnyEvent/RabbitMQ.pm
index 17faf35..bdd9f15 100644
--- a/lib/AnyEvent/RabbitMQ.pm
+++ b/lib/AnyEvent/RabbitMQ.pm
@@ -2,8 +2,6 @@ package AnyEvent::RabbitMQ;
use strict;
use warnings;
-
-use Data::Dumper;
use Carp qw(confess croak);
use List::MoreUtils qw(none);
use Devel::GlobalDestruction;
@@ -11,6 +9,17 @@ use namespace::clean;
use File::ShareDir;
use Readonly;
+require Data::Dumper;
+sub Dumper {
+ local $Data::Dumper::Terse = 1;
+ local $Data::Dumper::Indent = 1;
+ local $Data::Dumper::Useqq = 1;
+ local $Data::Dumper::Deparse = 1;
+ local $Data::Dumper::Quotekeys = 0;
+ local $Data::Dumper::Sortkeys = 1;
+ &Data::Dumper::Dumper
+}
+
use AnyEvent::Handle;
use AnyEvent::Socket;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libanyevent-rabbitmq-perl.git
More information about the Pkg-perl-cvs-commits
mailing list