package Feed::Role::Mail;
use Moose::Role;
use 5.012;
use namespace::autoclean;

with 'Feed::HelperRole::Mail';

requires 'extract_entries';

has mail_address => (
    is => 'ro',
    isa => 'Str',
    required => 1,
);

has mail_host => (
    is => 'ro',
    isa => 'Str',
    required => 0,
);

sub process_entry {
    my ($self,$entry) = @_;

    my ($msg) = $self->entry_to_mime($entry);
    $msg->replace( To => $self->mail_address );

    my @mail_args;
    if( $self->mail_host ) {
        @mail_args = (smtp => $self->mail_host);
    };
    $msg->send( @mail_args );

    return;
}

1;