File Coverage

blib/lib/Eve/Email.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	36	36	100.0

package Eve::Email;

use parent qw(Eve::Class);

use strict;
use warnings;

use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;

=head1 NAME

B - a wrapper for the C library.

=head1 SYNOPSIS

    use Eve::Email;

    my $mailer = Eve::Email->new();

    $mailer->send(to => $address, subject => $subject, body => $body);

=head2 Constructor arguments

=over 4

=item C

The from address line that will be added to each sent email.

=back

=head1 METHODS

=head2 B

=cut

sub init {
    my ($self, %arg_hash) = @_;
    Eve::Support::arguments(\%arg_hash, my ($from));

    $self->{'_from'} = $from;

    return;
}

=head2 B

Send an email body with a certain subject to a certain recipient.

=head3 Arguments

=over 4

=item C

=item C

=item C

=back

=cut

sub send {
    my ($self, %arg_hash) = @_;
    Eve::Support::arguments(\%arg_hash, my ($to, $subject, $body));

    my $email = Email::Simple->create(
        header => [
            To      => $to,
            From    => $self->_from,
            Subject => $subject,
        ],
        body => $body);

    sendmail($email);
}

=head1 LICENSE AND COPYRIGHT

Copyright 2012 Igor Zinovyev.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.


=head1 AUTHOR

=over 4

=item L

=back

=cut

1;