1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
package Reply::Plugin::DataDump; use strict; use warnings; use base 'Reply::Plugin'; use Data::Dump 'pp'; sub mangle_result { my $self = shift; my (@result) = @_; return @result ? pp(@result) : (); } 1;