diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-08 13:58:19 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-08 13:58:42 -0500 |
commit | 8221df8f61b633157b4847b3c5291815b76f091c (patch) | |
tree | e77edbb9c8da5b4dc3528402e2a4ad541f8c0478 /lib | |
parent | cef5feaae1d2472e2d2b5090d680dd3d7289d76d (diff) | |
download | reply-8221df8f61b633157b4847b3c5291815b76f091c.tar.gz reply-8221df8f61b633157b4847b3c5291815b76f091c.zip |
better Data::Dumper config
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Reply/Plugin/DataDumper.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Reply/Plugin/DataDumper.pm b/lib/Reply/Plugin/DataDumper.pm index 7491c60..4c90acc 100644 --- a/lib/Reply/Plugin/DataDumper.pm +++ b/lib/Reply/Plugin/DataDumper.pm @@ -18,6 +18,15 @@ This plugin uses L<Data::Dumper> to format results. =cut +sub new { + my $class = shift; + + $Data::Dumper::Terse = 1; + $Data::Dumper::Sortkeys = 1; + + return $class->SUPER::new(@_); +} + sub mangle_result { my $self = shift; my (@result) = @_; |