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 | |
| parent | 8221df8f61b633157b4847b3c5291815b76f091c (diff) | |
| download | reply-b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89.tar.gz reply-b96eeb3ff1799f1f06dbd2cd9aad8bf9be81df89.zip | |
dump multiple results with Data::Dumper in a better way
| -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; |