File Coverage

blib/lib/XAS/Lib/Modules/Email.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	1	100.0
total	17	39	43.5

package XAS::Lib::Modules::Email;

our $VERSION = '0.02';

use Try::Tiny;
use MIME::Lite;
use File::Basename;

use XAS::Class
  debug   => 0,
  version => $VERSION,
  base    => 'XAS::Singleton',
  utils   => ':validation dotid compress',
;

#use Data::Dumper;

# ------------------------------------------------------------------------
# Public Methods
# ------------------------------------------------------------------------

sub send {
    my $self = shift;
    my $p = validate_params(\@_, {
        -to         => 1,
        -from       => 1,
        -subject    => 1,
        -message    => { optional => 1, default => ' '},
        -attachment => { optional => 1, default => undef }
    });

    my $msg;

    try {

        if ($self->env->mxmailer eq 'smtp') {

            MIME::Lite->send(
                $self->env->mxmailer,
                $self->env->mxserver,
                Timeout => $self->env->mxtimeout,
                Port    => $self->env->mxport,
            );

        }

        $msg = MIME::Lite->new(
            To      => $p->{'to'},
            From    => $p->{'from'},
            Subject => $p->{'subject'},
            Type    => 'multipart/mixed'
        );

        $msg->attach(
            Type => 'TEXT',
            Data => $p->{'message'}
        );

        if (defined($p->{'attachment'})) {

            my $filename = $p->{'attachment'};
            my ($name, $path, $suffix) = fileparse($filename, qr{\..*});

            $msg->attach(
                Type         => 'AUTO',
                Path         => $filename,
                Filename     => $name . $suffix,
                Dispostition => 'attachment'
            );

        }

        $msg->send();

    } catch {

        my $ex = $_;

        $self->throw_msg(
            dotid($self->class) . '.send.undeliverable',
            'enail_undeliverable',
            $p->{'to'},
            compress($ex)
        );

    };

}

# ------------------------------------------------------------------------
# Private methods
# ------------------------------------------------------------------------

1;

__END__