contrib/file_processor/Action/Log.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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