—

              
package App::Wubot::Reactor::MakeDirectory;
use Moose;
our $VERSION = '0.3.3'; # VERSION
use File::Path;
use App::Wubot::Logger;
has 'logger'  => ( is => 'ro',
                   isa => 'Log::Log4perl::Logger',
                   lazy => 1,
                   default => sub {
                       return Log::Log4perl::get_logger( __PACKAGE__ );
                   },
               );
sub react {
    my ( $self, $message, $config ) = @_;
    unless ( $config->{field} ) {
        $self->logger->error( "ERROR: MakeDirectory: field not defined in config", YAML::Dump $config );
        return $message;
    }
    my $directory = $message->{ $config->{field} };
    unless ( $directory ) {
        $self->logger->error( "Could not create directory: $directory ( $config->{field} )" );
    }
    return $message if -d $directory;
    $self->logger->warn( "Creating directory: $directory" );
    eval {                          # try
        mkpath( $directory );
        1;
    } or do {                       # catch
        $self->logger->error( "Couldn't create directory: $directory: $@" );
    };
    return $message;
}
__PACKAGE__->meta->make_immutable;
1;
__END__
HideShow 23 lines of Pod
=head1 NAME
App::Wubot::Reactor::MakeDirectory - create a subdirectory
=head1 VERSION
version 0.3.3
=head1 DESCRIPTION
TODO: More to come...
=head1 SUBROUTINES/METHODS
=over 8
=item react( $message, $config )
The standard reactor plugin react() method.
=back