From bd278ef850b5ab57d6afe2780073e6bde5c1a836 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Sun, 23 Aug 2015 22:24:17 +0100 Subject: Only Data::Printer::p when we have @result --- lib/Reply/Plugin/DataPrinter.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm index f048a47..2c0d934 100644 --- a/lib/Reply/Plugin/DataPrinter.pm +++ b/lib/Reply/Plugin/DataPrinter.pm @@ -20,6 +20,7 @@ This plugin uses L to format results. sub mangle_result { my ($self, @result) = @_; + return unless @result; return p(@result, return_value => 'dump'); } -- cgit v1.2.3 From 0ca64485e3a3b757383a408fa0d0f6703fdd0b54 Mon Sep 17 00:00:00 2001 From: John Barrett Date: Sun, 23 Aug 2015 22:54:12 +0100 Subject: Set return_value on use --- lib/Reply/Plugin/DataPrinter.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm index 2c0d934..1700d0a 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 -- cgit v1.2.3 From e197b3e80a9a19c0deec05a6632135d842d790ef Mon Sep 17 00:00:00 2001 From: John Barrett Date: Sun, 23 Aug 2015 22:55:27 +0100 Subject: If @results contains only one value, just dump that value --- lib/Reply/Plugin/DataPrinter.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm index 1700d0a..1fea3ab 100644 --- a/lib/Reply/Plugin/DataPrinter.pm +++ b/lib/Reply/Plugin/DataPrinter.pm @@ -21,7 +21,8 @@ This plugin uses L to format results. sub mangle_result { my ($self, @result) = @_; return unless @result; - return p(@result, return_value => 'dump'); + ( @result == 1 ) && return p($result[0]); + return p(@result); } 1; -- cgit v1.2.3