[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