You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
63 lines
1.1 KiB
63 lines
1.1 KiB
package LDV::Email; |
|
|
|
use strict; |
|
use warnings; |
|
use utf8; |
|
|
|
use Email::Simple; |
|
use Email::Sender::Simple qw(sendmail); |
|
|
|
sub new { |
|
my ($class, $opts) = @_; |
|
my $self = { |
|
from => 'noreply@example.com', |
|
reply => 'admin@example.com', |
|
%$opts, |
|
}; |
|
|
|
return bless($self, $class); |
|
} |
|
|
|
sub send { |
|
my ($self, $to, $subject, $body) = @_; |
|
|
|
eval { |
|
my $email = Email::Simple->create( |
|
header => [ |
|
From => $self->{from}, |
|
'Reply-To' => $self->{reply} || $self->{from}, |
|
To => $to, |
|
Subject => $subject, |
|
], |
|
body => $body); |
|
sendmail($email, {from => $self->{from}}); 1; |
|
} or do { |
|
return $@->message if ref $@; |
|
return $@; |
|
}; |
|
|
|
return; |
|
} |
|
|
|
1; |
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
LDV::Email -- simple wrapper class to work with emails |
|
|
|
=head2 C<new> |
|
|
|
my $email = LDV::Email->new(\%opts); |
|
|
|
* from -- default 'From' header |
|
* reply -- reply to this email instead 'from' |
|
|
|
=head2 C<send> |
|
|
|
my $email = LDV::Email->new(\%opts); |
|
my $error = $email->send($to, $subject, $body); |
|
die($result) if $error; |
|
|
|
=cut
|
|
|