File Coverage

blib/lib/Email/Sender/Server/Worker.pm

Criterion	Covered	Total	%
statement	24	33	72.7
branch	0	2	0.0
condition	0	3	0.0
subroutine	8	10	80.0
pod	0	2	0.0
total	32	50	64.0

# ABSTRACT: Email Server Worker

package Email::Sender::Server::Worker;

use Moo;
use utf8;

with 'Email::Sender::Server::Base';

use Carp 'confess';
use File::Path 'mkpath';
use File::Slurp 'write_file';
use File::Spec::Functions 'curdir', 'catdir', 'catfile', 'splitdir';

use Email::Sender::Server::Message;
use Class::Date;

our $VERSION = '1.000001'; # VERSION


has id => (
    is      => 'ro',
    default => $$
);

has workspace => (
    is      => 'rw',
    lazy    => 1,
    default => sub {
        my $self = shift;
        $self->directory('worker', $self->id);
    }
);

sub BUILD {
    my ($self) = @_;

    my $workspace = $self->workspace;

    unless (-d $workspace && -w $workspace) {
        confess "Couldn't find or access (write-to) the worker's workspace ".
            $workspace;
    }

    return $self;
}

sub process_message {
    my ($self, $data) = @_;

    my $message = Email::Sender::Server::Message->new($data);
       $message->send;

    return $message;
}

1;

__END__