diff options
author | dakkar <dakkar@thenautilus.net> | 2013-06-27 21:45:51 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-06-27 21:45:51 +0100 |
commit | 7e860132d0c4ba0567fa93c49f69309aa10a1763 (patch) | |
tree | 2d4943061aa97d88dced35d36ef70ee39f74e946 | |
parent | drop overheard (diff) | |
download | feeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.tar.gz feeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.tar.bz2 feeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.zip |
new Mail role, thanks corion
-rw-r--r-- | lib/Feed/Role/Mail.pm | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/lib/Feed/Role/Mail.pm b/lib/Feed/Role/Mail.pm new file mode 100644 index 0000000..d50447f --- /dev/null +++ b/lib/Feed/Role/Mail.pm @@ -0,0 +1,37 @@ +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; |