File Coverage

blib/lib/Log/Dispatch/Email/EmailSend.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	1	2	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	48	49	97.9

package Log::Dispatch::Email::EmailSend;

use strict;

use Log::Dispatch::Email;

use base qw( Log::Dispatch::Email );

use Email::Send 2.0;
use Email::Simple::Creator;

use Params::Validate qw(validate SCALAR ARRAYREF BOOLEAN);
Params::Validate::validation_options( allow_extra => 1 );

use vars qw[ $VERSION ];

$VERSION = 0.03;

1;

sub new
{
    my $class = shift;
    my %p = validate( @_,
                      { mailer      => { type    => SCALAR,
                                         default => 'Sendmail' },
                        mailer_args => { type    => ARRAYREF,
                                         default => [],
                                       },
                      }
                    );

    my $self = $class->SUPER::new(%p);

    $self->{to} = join ', ', @{ $self->{to} } if ref $self->{to};

    $self->{mailer} = $p{mailer};
    $self->{mailer_args} = $p{mailer_args};

    return $self;
}

sub send_email
{
    my $self = shift;
    my %p = @_;

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

    my $sender = Email::Send->new( { mailer => $self->{mailer},
                                     @{ $self->{mailer_args} },
                                   },
                                 );

    local $?;
    $sender->send($email);
}


__END__