summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2013-06-27 21:45:51 +0100
committerdakkar <dakkar@thenautilus.net>2013-06-27 21:45:51 +0100
commit7e860132d0c4ba0567fa93c49f69309aa10a1763 (patch)
tree2d4943061aa97d88dced35d36ef70ee39f74e946
parentdrop overheard (diff)
downloadfeeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.tar.gz
feeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.tar.bz2
feeder-7e860132d0c4ba0567fa93c49f69309aa10a1763.zip
new Mail role, thanks corion
-rw-r--r--lib/Feed/Role/Mail.pm37
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;