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 | |
| parent | cef5feaae1d2472e2d2b5090d680dd3d7289d76d (diff) | |
| download | reply-8221df8f61b633157b4847b3c5291815b76f091c.tar.gz reply-8221df8f61b633157b4847b3c5291815b76f091c.zip | |
better Data::Dumper config
| -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) = @_; |