diff options
author | Stanislaw Pusep <creaktive@gmail.com> | 2013-06-04 12:10:34 -0300 |
---|---|---|
committer | Stanislaw Pusep <creaktive@gmail.com> | 2013-06-04 12:10:34 -0300 |
commit | 0216bb1b4ebe417d6e9141f75b331cc00a835bd2 (patch) | |
tree | 579d9c69e28741cbdd93d66165ea13caf0b967a4 /lib/Reply | |
parent | 6b50bdb6053ee46305ef761a2f6f2a2aee8469b4 (diff) | |
download | reply-0216bb1b4ebe417d6e9141f75b331cc00a835bd2.tar.gz reply-0216bb1b4ebe417d6e9141f75b331cc00a835bd2.zip |
added Reply::Plugin::DataPrinter
Diffstat (limited to 'lib/Reply')
-rw-r--r-- | lib/Reply/Plugin/DataPrinter.pm | 26 |
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; |