diff options
Diffstat (limited to 'contrib/file_processor/Action/Log.pm')
| -rw-r--r-- | contrib/file_processor/Action/Log.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/contrib/file_processor/Action/Log.pm b/contrib/file_processor/Action/Log.pm new file mode 100644 index 0000000..f47fedb --- /dev/null +++ b/contrib/file_processor/Action/Log.pm @@ -0,0 +1,15 @@ +package Action::Log; +use Moose; +extends 'Processor'; + +has 'data' => (is => 'rw', isa => 'HashRef', required => 1); + +sub name { 'log' } +sub description { 'Log to file' } + +sub perform { + my $self = shift; + $self->log->info($self->json->encode($self->data)); +} + +1
\ No newline at end of file |