diff options
author | Jesse Luehrs <doy@tozt.net> | 2016-08-16 00:18:50 -0700 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-08-16 00:18:50 -0700 |
commit | 488afdc2363b34fc1858826f3a0fa54fdb04f9bf (patch) | |
tree | 179207dd27884bde049168f8b2718f7ea33373b8 | |
parent | 6270a932669a5954e2fcc9830c8e9a6b7edc2b0e (diff) | |
parent | e197b3e80a9a19c0deec05a6632135d842d790ef (diff) | |
download | reply-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.pm | 6 |
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; |