summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Reply/Plugin/DataPrinter.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm
index f048a47..1fea3ab 100644
--- a/lib/Reply/Plugin/DataPrinter.pm
+++ b/lib/Reply/Plugin/DataPrinter.pm
@@ -5,7 +5,7 @@ use warnings;
use base 'Reply::Plugin';
-use Data::Printer alias => 'p', colored => 1;
+use Data::Printer alias => 'p', colored => 1, return_value => 'dump';
=head1 SYNOPSIS
@@ -20,7 +20,9 @@ This plugin uses L<Data::Printer> to format results.
sub mangle_result {
my ($self, @result) = @_;
- return p(@result, return_value => 'dump');
+ return unless @result;
+ ( @result == 1 ) && return p($result[0]);
+ return p(@result);
}
1;