summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2016-08-16 00:18:50 -0700
committerGitHub <noreply@github.com>2016-08-16 00:18:50 -0700
commit488afdc2363b34fc1858826f3a0fa54fdb04f9bf (patch)
tree179207dd27884bde049168f8b2718f7ea33373b8
parent6270a932669a5954e2fcc9830c8e9a6b7edc2b0e (diff)
parente197b3e80a9a19c0deec05a6632135d842d790ef (diff)
downloadreply-488afdc2363b34fc1858826f3a0fa54fdb04f9bf.tar.gz
reply-488afdc2363b34fc1858826f3a0fa54fdb04f9bf.zip
Merge pull request #44 from jbarrett/quiet-data-printer
Make Plugin::DataPrinter a little quieter
-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;