From b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 8 Jun 2013 14:02:22 -0500 Subject: dump multiple results with Data::Dumper in a better way --- lib/Reply/Plugin/DataDumper.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Reply/Plugin/DataDumper.pm b/lib/Reply/Plugin/DataDumper.pm index 4c90acc..7ac6be4 100644 --- a/lib/Reply/Plugin/DataDumper.pm +++ b/lib/Reply/Plugin/DataDumper.pm @@ -30,7 +30,7 @@ sub new { sub mangle_result { my $self = shift; my (@result) = @_; - return Dumper(@result); + return Dumper(@result == 0 ? '' : @result == 1 ? $result[0] : \@result); } 1; -- cgit v1.2.3-54-g00ecf