File Coverage

lib/Dancer/Plugin/EmailSender.pm

Criterion	Covered	Total	%
statement	56	57	98.2
branch	22	28	78.5
condition	8	9	88.8
subroutine	11	11	100.0
pod			n/a
total	97	105	92.3

package Dancer::Plugin::EmailSender;
{
  $Dancer::Plugin::EmailSender::VERSION = '0.002';
}
#ABSTRACT: Easily use Email::Sender from Dancer

use Carp qw{croak};
use Dancer ':syntax';
use Dancer::Plugin;
use Email::MIME;
use Email::Sender::Simple qw{sendmail};
use Module::Load 'load';
use Scalar::Util 'blessed';
use Test::More import => ['!pass'];
use strict;
use warnings;


register sendemail => sub {
    my ($args) = @_ or croak 'You must pass me information on what to send';
    ref $args eq "HASH" or croak 'You must pass me a hashref to describe the email';

    my $config = plugin_setting;

    my $email;

    if ($args->{email}) {
        $email = Email::Abstract->new ($args->{email});
    } else {
        my $headers = {%{ref $config->{headers} eq 'HASH' ? $config->{headers} : {}}, %{ref $args->{headers} eq 'HASH' ? $args->{headers} : {}}, From => $args->{from}, To => join ",", ref $args->{to} eq 'ARRAY' ? @{$args->{to}} : ()};
        $email = Email::Abstract->new (Email::MIME->create (header_str => [%{$headers}], body => $args->{body}));
    }

    croak 'Could not extract or construct an email from our parameters' unless ($email);

    my $params = {};
    ($params->{from} = $args->{'envelope-from'}) or $email->get_header ('from') or croak 'You must tell me who the email is from';
    ($params->{to} = $args->{'envelope-to'}) or $email->get_header ('to') or croak 'You must tell me to whom to send the email';

    if (blessed $args->{transport}) {
        $params->{transport} = $args->{transport};
    } elsif (!defined $args->{transport} and blessed $config->{transport}) {
        $params->{transport} = $config->{transport};
    } else {
        my $transport = {%{ref $config->{transport} eq 'HASH' ? $config->{transport} : {}}, %{ref $args->{transport} eq 'HASH' ? $args->{transport} : {}}};
        if (my $choice = delete $transport->{class}) {
            my $class = "Email::Sender::Transport::$choice";
            load $class;
            $params->{transport} = $class->new ($transport);
        }
    }

    return sendmail $email, $params;
};

register_plugin;


1;

__END__