added Reply::Plugin::DataPrinter

1 files changed, 26 insertions, 0 deletions

diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm
new file mode 100644
index 0000000..88a3b27
--- /dev/null
+++ b/lib/Reply/Plugin/DataPrinter.pm
@@ -0,0 +1,26 @@
+package Reply::Plugin::DataPrinter;
+use strict;
+use warnings;
+# ABSTRACT: format results using Data::Printer
+
+use base 'Reply::Plugin';
+
+use Data::Printer;
+
+=head1 SYNOPSIS
+
+  ; .replyrc
+  [DataPrinter]
+
+=head1 DESCRIPTION
+
+This plugin uses L<Data::Printer> to format results.
+
+=cut
+
+sub mangle_result {
+    my ($self, @result) = @_;
+    return p(@result, return_value => 'dump');
+}
+
+1;