File Coverage

blib/lib/Email/Send/SMTP/TLS.pm

Criterion	Covered	Total	%
statement	18	46	39.1
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	10	60.0
pod	0	4	0.0
total	24	66	36.3

package Email::Send::SMTP::TLS;

use warnings;
use strict;
use vars qw[$VERSION];
use Email::Address;
use Net::SMTP::TLS::ButMaintained;
use Return::Value;

$VERSION   = '0.04';

sub is_available {
    return 1;
}

sub get_env_sender {
    my ( $class, $message ) = @_;

    my $from
        = ( Email::Address->parse( $message->header('From') ) )[0]->address;
}

sub get_env_recipients {
    my ( $class, $message ) = @_;

    my %to = map { $_->address => 1 }
        map { Email::Address->parse( $message->header($_) ) } qw(To Cc Bcc);

    return keys %to;
}

sub send {
    my ($class, $message, @args) = @_;

    my %args;
    if ( @args % 2 ) {
        my $host = shift @args;
        %args = @args;
        $args{Host} = $host;
    } else {
        %args = @args;
    }

    my $host = delete($args{Host}) || 'localhost';
    my $SMTP = Net::SMTP::TLS::ButMaintained->new($host, %args);

    eval {
        my $from = $class->get_env_sender($message);
        $SMTP->mail($from);

        my @to = $class->get_env_recipients($message);
        $SMTP->to( @to );

    };
    return failure $@ if $@;

    $SMTP->data();
    $SMTP->datasend( $message->as_string );
    $SMTP->dataend;
    $SMTP->quit;

     return success 1;
}

1;
__END__