diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-08-07 22:28:04 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-03 16:50:15 -0400 |
commit | 3e19fb26f62ce9fa02e417c015f6668989d1eaad (patch) | |
tree | 411f3292cf712606ad177b5229314eb739db4b7b /lib/Reply/Plugin/DataPrinter.pm | |
parent | 7df1338f58d10c01cf8f742832b57b2736dbf301 (diff) | |
download | reply-3e19fb26f62ce9fa02e417c015f6668989d1eaad.tar.gz reply-3e19fb26f62ce9fa02e417c015f6668989d1eaad.zip |
convert all of the plugins
Diffstat (limited to 'lib/Reply/Plugin/DataPrinter.pm')
-rw-r--r-- | lib/Reply/Plugin/DataPrinter.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/Reply/Plugin/DataPrinter.pm b/lib/Reply/Plugin/DataPrinter.pm index f048a47..05328db 100644 --- a/lib/Reply/Plugin/DataPrinter.pm +++ b/lib/Reply/Plugin/DataPrinter.pm @@ -1,9 +1,9 @@ -package Reply::Plugin::DataPrinter; +package main; use strict; use warnings; # ABSTRACT: format results using Data::Printer -use base 'Reply::Plugin'; +use mop; use Data::Printer alias => 'p', colored => 1; @@ -18,9 +18,10 @@ This plugin uses L<Data::Printer> to format results. =cut -sub mangle_result { - my ($self, @result) = @_; - return p(@result, return_value => 'dump'); +class Reply::Plugin::DataPrinter extends Reply::Plugin { + method mangle_result (@result) { + return p(@result, return_value => 'dump'); + } } 1; |