diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-08 14:02:22 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-08 14:02:22 -0500 |
commit | b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89 (patch) | |
tree | 60e506273d769d11442e517200419eb354eec4d6 /lib/Reply/Plugin | |
parent | 8221df8f61b633157b4847b3c5291815b76f091c (diff) | |
download | reply-b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89.tar.gz reply-b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89.zip |
dump multiple results with Data::Dumper in a better way
Diffstat (limited to 'lib/Reply/Plugin')
-rw-r--r-- | lib/Reply/Plugin/DataDumper.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |