File Coverage

blib/lib/Emailesque.pm

Criterion	Covered	Total	%
statement	73	375	19.4
branch	20	324	6.1
condition	9	45	20.0
subroutine	13	145	8.9
pod	133	136	97.7
total	248	1025	24.2

# ABSTRACT: Lightweight To-The-Point Email
package Emailesque;

use Carp;
use File::Slurp;
use Email::AddressParser;
use Email::Sender::Transport::Sendmail;
use Email::Sender::Transport::SMTP;
use Email::Stuffer;
use Hash::Merge::Simple;

use Exporter 'import';
our @EXPORT_OK = qw(email);

use Moo;

our $VERSION = '1.26'; # VERSION

my %headers = map {
    my $name = lc $_;
       $name =~ s/\W+/_/g;
       $name => $_;
}
my @headers = (
    my @kheaders = (
        'Accept-Language',
        'Alternate-Recipient',
        'Apparently-To',
        'Archived-At',
        'Authentication-Results',
        'Auto-Submitted',
        'Autoforwarded',
        'Autosubmitted',
        'Bcc',
        'Cc',
        'Comments',
        'Content-Identifier',
        'Content-Return',
        'Conversion-With-Loss',
        'Conversion',
        'DKIM-Signature',
        'DL-Expansion-History',
        'Date',
        'Deferred-Delivery',
        'Delivery-Date',
        'Discarded-X400-IPMS-Extensions',
        'Discarded-X400-MTS-Extensions',
        'Disclose-Recipients',
        'Disposition-Notification-Options',
        'Disposition-Notification-To',
        'Downgraded-Bcc',
        'Downgraded-Cc',
        'Downgraded-Disposition-Notification-To',
        'Downgraded-Final-Recipient',
        'Downgraded-From',
        'Downgraded-In-Reply-To',
        'Downgraded-Mail-From',
        'Downgraded-Message-Id',
        'Downgraded-Original-Recipient',
        'Downgraded-Rcpt-To',
        'Downgraded-References',
        'Downgraded-Reply-To',
        'Downgraded-Resent-Bcc',
        'Downgraded-Resent-Cc',
        'Downgraded-Resent-From',
        'Downgraded-Resent-Reply-To',
        'Downgraded-Resent-Sender',
        'Downgraded-Resent-To',
        'Downgraded-Return-Path',
        'Downgraded-Sender',
        'Downgraded-To',
        'EDIINT-Features',
        'Encoding',
        'Encrypted',
        'Errors-To',
        'Expires',
        'Expiry-Date',
        'From',
        'Generate-Delivery-Report',
        'Importance',
        'In-Reply-To',
        'Incomplete-Copy',
        'Jabber-ID',
        'Keywords',
        'Language',
        'Latest-Delivery-Time',
        'List-Archive',
        'List-Help',
        'List-ID',
        'List-Owner',
        'List-Post',
        'List-Subscribe',
        'List-Unsubscribe',
        'MMHS-Acp127-Message-Identifier',
        'MMHS-Codress-Message-Indicator',
        'MMHS-Copy-Precedence',
        'MMHS-Exempted-Address',
        'MMHS-Extended-Authorisation-Info',
        'MMHS-Handling-Instructions',
        'MMHS-Message-Instructions',
        'MMHS-Message-Type',
        'MMHS-Originator-PLAD',
        'MMHS-Originator-Reference',
        'MMHS-Other-Recipients-Indicator-CC',
        'MMHS-Other-Recipients-Indicator-To',
        'MMHS-Primary-Precedence',
        'MMHS-Subject-Indicator-Codes',
        'MT-Priority',
        'Message-Context',
        'Message-ID',
        'Message-Type',
        'Obsoletes',
        'Original-Encoded-Information-Types',
        'Original-From',
        'Original-Message-ID',
        'Original-Recipient',
        'Original-Subject',
        'Originator-Return-Address',
        'PICS-Label',
        'Prevent-NonDelivery-Report',
        'Priority',
        'Privicon',
        'Received-SPF',
        'Received',
        'References',
        'Reply-By',
        'Reply-To',
        'Require-Recipient-Valid-Since',
        'Resent-Bcc',
        'Resent-Cc',
        'Resent-Date',
        'Resent-From',
        'Resent-Message-ID',
        'Resent-Reply-To',
        'Resent-Sender',
        'Resent-To',
        'Return-Path',
        'SIO-Label-History',
        'SIO-Label',
        'Sender',
        'Sensitivity',
        'Solicitation',
        'Subject',
        'Supersedes',
        'To',
        'VBR-Info',
        'X-Archived-At',
        'X400-Content-Identifier',
        'X400-Content-Return',
        'X400-Content-Type',
        'X400-MTS-Identifier',
        'X400-Originator',
        'X400-Received',
        'X400-Recipients',
        'X400-Trace',
    ),
    my @xheaders = (
        'X-Abuse-Info',
        'X-Accept-Language',
        'X-Admin',
        'X-Article-Creation-Date',
        'X-Attribution',
        'X-Authenticated-IP',
        'X-Authenticated-Sender',
        'X-Authentication-Warning',
        'X-Cache',
        'X-Comments',
        'X-Complaints-To',
        'X-Confirm-reading-to',
        'X-Envelope-From',
        'X-Envelope-To',
        'X-Face',
        'X-Flags',
        'X-Folder',
        'X-IMAP',
        'X-Last-Updated',
        'X-List-Host',
        'X-Listserver',
        'X-Loop',
        'X-Mailer',
        'X-Mailer-Info',
        'X-Mailing-List',
        'X-MIME-Autoconverted',
        'X-MimeOLE',
        'X-MIMETrack',
        'X-MSMail-Priority',
        'X-MyDeja-Info',
        'X-Newsreader',
        'X-NNTP-Posting-Host',
        'X-No-Archive',
        'X-Notice',
        'X-Orig-Message-ID',
        'X-Original-Envelope-From',
        'X-Original-NNTP-Posting-Host',
        'X-Original-Trace',
        'X-OriginalArrivalTime',
        'X-Originating-IP',
        'X-PMFLAGS',
        'X-Posted-By',
        'X-Posting-Agent',
        'X-Priority',
        'X-RCPT-TO',
        'X-Report',
        'X-Report-Abuse-To',
        'X-Sender',
        'X-Server-Date',
        'X-Trace',
        'X-URI',
        'X-URL',
        'X-X-Sender',
    ),
);

around new => sub {
    my ($orig, $class, @args) = @_;
    my $data = @args % 2 ? $args[0] : {@args};
    $data = {} unless ref($data) eq 'HASH';
    my $self = $class->$orig($data);
    $self->{$_} //= $data->{$_} for keys %{$data};
    return $self;
};

sub email {
    unshift @_, __PACKAGE__->new({}) and goto &send;
}

sub message {
    my ($self, $argument) = @_;
    return $self->{message} = $argument;
}

sub send {
    my ($self, $options, @arguments) = @_;
    my $package = $self->prepare_package($options, @arguments);
    return $package->send;
}

sub accept_language {
    my $name = 'Accept-Language';
    unshift @_, shift, $name and goto &header;
}

sub alternate_recipient {
    my $name = 'Alternate-Recipient';
    unshift @_, shift, $name and goto &header;
}

sub apparently_to {
    my $name = 'Apparently-To';
    unshift @_, shift, $name and goto &header;
}

sub archived_at {
    my $name = 'Archived-At';
    unshift @_, shift, $name and goto &header;
}

sub authentication_results {
    my $name = 'Authentication-Results';
    unshift @_, shift, $name and goto &header;
}

sub auto_submitted {
    my $name = 'Auto-Submitted';
    unshift @_, shift, $name and goto &header;
}

sub autoforwarded {
    my $name = 'Autoforwarded';
    unshift @_, shift, $name and goto &header;
}

sub autosubmitted {
    my $name = 'Autosubmitted';
    unshift @_, shift, $name and goto &header;
}

sub bcc {
    my $name = 'Bcc';
    unshift @_, shift, $name and goto &header;
}

sub cc {
    my $name = 'Cc';
    unshift @_, shift, $name and goto &header;
}

sub comments {
    my $name = 'Comments';
    unshift @_, shift, $name and goto &header;
}

sub content_identifier {
    my $name = 'Content-Identifier';
    unshift @_, shift, $name and goto &header;
}

sub content_return {
    my $name = 'Content-Return';
    unshift @_, shift, $name and goto &header;
}

sub conversion {
    my $name = 'Conversion';
    unshift @_, shift, $name and goto &header;
}

sub conversion_with_loss {
    my $name = 'Conversion-With-Loss';
    unshift @_, shift, $name and goto &header;
}

sub dkim_signature {
    my $name = 'DKIM-Signature';
    unshift @_, shift, $name and goto &header;
}

sub dl_expansion_history {
    my $name = 'DL-Expansion-History';
    unshift @_, shift, $name and goto &header;
}

sub date {
    my $name = 'Date';
    unshift @_, shift, $name and goto &header;
}

sub deferred_delivery {
    my $name = 'Deferred-Delivery';
    unshift @_, shift, $name and goto &header;
}

sub delivery_date {
    my $name = 'Delivery-Date';
    unshift @_, shift, $name and goto &header;
}

sub discarded_x400_ipms_extensions {
    my $name = 'Discarded-X400-IPMS-Extensions';
    unshift @_, shift, $name and goto &header;
}

sub discarded_x400_mts_extensions {
    my $name = 'Discarded-X400-MTS-Extensions';
    unshift @_, shift, $name and goto &header;
}

sub disclose_recipients {
    my $name = 'Disclose-Recipients';
    unshift @_, shift, $name and goto &header;
}

sub disposition_notification_options {
    my $name = 'Disposition-Notification-Options';
    unshift @_, shift, $name and goto &header;
}

sub disposition_notification_to {
    my $name = 'Disposition-Notification-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_bcc {
    my $name = 'Downgraded-Bcc';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_cc {
    my $name = 'Downgraded-Cc';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_disposition_notification_to {
    my $name = 'Downgraded-Disposition-Notification-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_final_recipient {
    my $name = 'Downgraded-Final-Recipient';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_from {
    my $name = 'Downgraded-From';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_in_reply_to {
    my $name = 'Downgraded-In-Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_mail_from {
    my $name = 'Downgraded-Mail-From';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_message_id {
    my $name = 'Downgraded-Message-Id';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_original_recipient {
    my $name = 'Downgraded-Original-Recipient';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_rcpt_to {
    my $name = 'Downgraded-Rcpt-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_references {
    my $name = 'Downgraded-References';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_reply_to {
    my $name = 'Downgraded-Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_bcc {
    my $name = 'Downgraded-Resent-Bcc';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_cc {
    my $name = 'Downgraded-Resent-Cc';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_from {
    my $name = 'Downgraded-Resent-From';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_reply_to {
    my $name = 'Downgraded-Resent-Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_sender {
    my $name = 'Downgraded-Resent-Sender';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_resent_to {
    my $name = 'Downgraded-Resent-To';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_return_path {
    my $name = 'Downgraded-Return-Path';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_sender {
    my $name = 'Downgraded-Sender';
    unshift @_, shift, $name and goto &header;
}

sub downgraded_to {
    my $name = 'Downgraded-To';
    unshift @_, shift, $name and goto &header;
}

sub ediint_features {
    my $name = 'EDIINT-Features';
    unshift @_, shift, $name and goto &header;
}

sub encoding {
    my $name = 'Encoding';
    unshift @_, shift, $name and goto &header;
}

sub encrypted {
    my $name = 'Encrypted';
    unshift @_, shift, $name and goto &header;
}

sub errors_to {
    my $name = 'Errors-To';
    unshift @_, shift, $name and goto &header;
}

sub expires {
    my $name = 'Expires';
    unshift @_, shift, $name and goto &header;
}

sub expiry_date {
    my $name = 'Expiry-Date';
    unshift @_, shift, $name and goto &header;
}

sub from {
    my $name = 'From';
    unshift @_, shift, $name and goto &header;
}

sub generate_delivery_report {
    my $name = 'Generate-Delivery-Report';
    unshift @_, shift, $name and goto &header;
}

sub importance {
    my $name = 'Importance';
    unshift @_, shift, $name and goto &header;
}

sub in_reply_to {
    my $name = 'In-Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub incomplete_copy {
    my $name = 'Incomplete-Copy';
    unshift @_, shift, $name and goto &header;
}

sub jabber_id {
    my $name = 'Jabber-ID';
    unshift @_, shift, $name and goto &header;
}

sub keywords {
    my $name = 'Keywords';
    unshift @_, shift, $name and goto &header;
}

sub language {
    my $name = 'Language';
    unshift @_, shift, $name and goto &header;
}

sub latest_delivery_time {
    my $name = 'Latest-Delivery-Time';
    unshift @_, shift, $name and goto &header;
}

sub list_archive {
    my $name = 'List-Archive';
    unshift @_, shift, $name and goto &header;
}

sub list_help {
    my $name = 'List-Help';
    unshift @_, shift, $name and goto &header;
}

sub list_id {
    my $name = 'List-ID';
    unshift @_, shift, $name and goto &header;
}

sub list_owner {
    my $name = 'List-Owner';
    unshift @_, shift, $name and goto &header;
}

sub list_post {
    my $name = 'List-Post';
    unshift @_, shift, $name and goto &header;
}

sub list_subscribe {
    my $name = 'List-Subscribe';
    unshift @_, shift, $name and goto &header;
}

sub list_unsubscribe {
    my $name = 'List-Unsubscribe';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_acp127_message_identifier {
    my $name = 'MMHS-Acp127-Message-Identifier';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_codress_message_indicator {
    my $name = 'MMHS-Codress-Message-Indicator';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_copy_precedence {
    my $name = 'MMHS-Copy-Precedence';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_exempted_address {
    my $name = 'MMHS-Exempted-Address';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_extended_authorisation_info {
    my $name = 'MMHS-Extended-Authorisation-Info';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_handling_instructions {
    my $name = 'MMHS-Handling-Instructions';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_message_instructions {
    my $name = 'MMHS-Message-Instructions';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_message_type {
    my $name = 'MMHS-Message-Type';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_originator_plad {
    my $name = 'MMHS-Originator-PLAD';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_originator_reference {
    my $name = 'MMHS-Originator-Reference';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_other_recipients_indicator_cc {
    my $name = 'MMHS-Other-Recipients-Indicator-CC';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_other_recipients_indicator_to {
    my $name = 'MMHS-Other-Recipients-Indicator-To';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_primary_precedence {
    my $name = 'MMHS-Primary-Precedence';
    unshift @_, shift, $name and goto &header;
}

sub mmhs_subject_indicator_codes {
    my $name = 'MMHS-Subject-Indicator-Codes';
    unshift @_, shift, $name and goto &header;
}

sub mt_priority {
    my $name = 'MT-Priority';
    unshift @_, shift, $name and goto &header;
}

sub message_context {
    my $name = 'Message-Context';
    unshift @_, shift, $name and goto &header;
}

sub message_id {
    my $name = 'Message-ID';
    unshift @_, shift, $name and goto &header;
}

sub message_type {
    my $name = 'Message-Type';
    unshift @_, shift, $name and goto &header;
}

sub obsoletes {
    my $name = 'Obsoletes';
    unshift @_, shift, $name and goto &header;
}

sub original_encoded_information_types {
    my $name = 'Original-Encoded-Information-Types';
    unshift @_, shift, $name and goto &header;
}

sub original_from {
    my $name = 'Original-From';
    unshift @_, shift, $name and goto &header;
}

sub original_message_id {
    my $name = 'Original-Message-ID';
    unshift @_, shift, $name and goto &header;
}

sub original_recipient {
    my $name = 'Original-Recipient';
    unshift @_, shift, $name and goto &header;
}

sub original_subject {
    my $name = 'Original-Subject';
    unshift @_, shift, $name and goto &header;
}

sub originator_return_address {
    my $name = 'Originator-Return-Address';
    unshift @_, shift, $name and goto &header;
}

sub pics_label {
    my $name = 'PICS-Label';
    unshift @_, shift, $name and goto &header;
}

sub prevent_nondelivery_report {
    my $name = 'Prevent-NonDelivery-Report';
    unshift @_, shift, $name and goto &header;
}

sub priority {
    my $name = 'Priority';
    unshift @_, shift, $name and goto &header;
}

sub privicon {
    my $name = 'Privicon';
    unshift @_, shift, $name and goto &header;
}

sub received {
    my $name = 'Received';
    unshift @_, shift, $name and goto &header;
}

sub received_spf {
    my $name = 'Received-SPF';
    unshift @_, shift, $name and goto &header;
}

sub references {
    my $name = 'References';
    unshift @_, shift, $name and goto &header;
}

sub reply_by {
    my $name = 'Reply-By';
    unshift @_, shift, $name and goto &header;
}

sub reply_to {
    my $name = 'Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub require_recipient_valid_since {
    my $name = 'Require-Recipient-Valid-Since';
    unshift @_, shift, $name and goto &header;
}

sub resent_bcc {
    my $name = 'Resent-Bcc';
    unshift @_, shift, $name and goto &header;
}

sub resent_cc {
    my $name = 'Resent-Cc';
    unshift @_, shift, $name and goto &header;
}

sub resent_date {
    my $name = 'Resent-Date';
    unshift @_, shift, $name and goto &header;
}

sub resent_from {
    my $name = 'Resent-From';
    unshift @_, shift, $name and goto &header;
}

sub resent_message_id {
    my $name = 'Resent-Message-ID';
    unshift @_, shift, $name and goto &header;
}

sub resent_reply_to {
    my $name = 'Resent-Reply-To';
    unshift @_, shift, $name and goto &header;
}

sub resent_sender {
    my $name = 'Resent-Sender';
    unshift @_, shift, $name and goto &header;
}

sub resent_to {
    my $name = 'Resent-To';
    unshift @_, shift, $name and goto &header;
}

sub return_path {
    my $name = 'Return-Path';
    unshift @_, shift, $name and goto &header;
}

sub sio_label {
    my $name = 'SIO-Label';
    unshift @_, shift, $name and goto &header;
}

sub sio_label_history {
    my $name = 'SIO-Label-History';
    unshift @_, shift, $name and goto &header;
}

sub sender {
    my $name = 'Sender';
    unshift @_, shift, $name and goto &header;
}

sub sensitivity {
    my $name = 'Sensitivity';
    unshift @_, shift, $name and goto &header;
}

sub solicitation {
    my $name = 'Solicitation';
    unshift @_, shift, $name and goto &header;
}

sub subject {
    my $name = 'Subject';
    unshift @_, shift, $name and goto &header;
}

sub supersedes {
    my $name = 'Supersedes';
    unshift @_, shift, $name and goto &header;
}

sub to {
    my $name = 'To';
    unshift @_, shift, $name and goto &header;
}

sub vbr_info {
    my $name = 'VBR-Info';
    unshift @_, shift, $name and goto &header;
}

sub x_archived_at {
    my $name = 'X-Archived-At';
    unshift @_, shift, $name and goto &header;
}

sub x400_content_identifier {
    my $name = 'X400-Content-Identifier';
    unshift @_, shift, $name and goto &header;
}

sub x400_content_return {
    my $name = 'X400-Content-Return';
    unshift @_, shift, $name and goto &header;
}

sub x400_content_type {
    my $name = 'X400-Content-Type';
    unshift @_, shift, $name and goto &header;
}

sub x400_mts_identifier {
    my $name = 'X400-MTS-Identifier';
    unshift @_, shift, $name and goto &header;
}

sub x400_originator {
    my $name = 'X400-Originator';
    unshift @_, shift, $name and goto &header;
}

sub x400_received {
    my $name = 'X400-Received';
    unshift @_, shift, $name and goto &header;
}

sub x400_recipients {
    my $name = 'X400-Recipients';
    unshift @_, shift, $name and goto &header;
}

sub x400_trace {
    my $name = 'X400-Trace';
    unshift @_, shift, $name and goto &header;
}

sub header {
    my ($self, $name) = (shift, shift);
    $name = $headers{$name} // $name;

    my $headers = $self->{headers} //= {};

    return $headers->{$name} = shift if @_;
    return $headers->{$name};
}

sub prepare_address {
    my ($self, $field, @arguments) = @_;

    my $headers = $self->{headers} //= {};
    my $value   = $headers->{$field};

    return join ",", map $_->format, Email::AddressParser->parse(
        ref($value) eq 'ARRAY' ? join(',',@{$value}) : $value
    );
}

sub prepare_package {
    my ($self, $options, @arguments) = @_;
$DB::single=1;
    $options = Hash::Merge::Simple::merge($self, $options // {});

    my $stuff = Email::Stuffer->new;
    my $email = __PACKAGE__->new();

    $email->{$_} = $options->{$_} for keys %{$options};

    # remap references
    $_[0] = $self = $email;

    # configure headers
    my $headers = $email->{headers} //= {};

    # extract headers
    for my $key (keys %headers) {
        my $name  = $headers{$key};
        my $value = delete $email->{$key} or next;
        $headers->{$name} = $value if $name and not defined $headers->{$name};
    }

    # required fields
    my @required = @{$headers}{qw(From Subject To)};
    confess "Can't send email without a to, from, and subject property"
        unless @required == 3;

    # process address headers
    my @address_headers = qw(
        Abuse-Reports-To
        Apparently-To
        Delivered-To
        Disposition-Notification-To
        Errors-To
        Followup-To
        In-Reply-To
        Mail-Copies-To
        Posted-To
        Read-Receipt-To
        Resent-Reply-To
        Resent-To
        Return-Receipt-To
    );
    for my $key (qw(Cc Bcc From Reply-To To), @address_headers) {
        $stuff->header($key => $email->prepare_address($key))
            if defined $headers->{$key};
    }

    # process subject
    $stuff->subject($headers->{Subject}) if defined $headers->{Subject};

    # process message
    if (defined $email->{message}) {
        my $type     = $email->{type};
        my $message  = $email->{message};

        my $multi = ref($email->{message}) eq 'HASH';

        my $html_msg = $email->{message}{html} if $multi;
        my $text_msg = $email->{message}{text} if $multi;

        # multipart send using plain text and html
        if (($type and lc($type) eq 'multi') or ($html_msg and $text_msg)) {
            $stuff->html_body("$html_msg") if defined $html_msg;
            $stuff->text_body("$text_msg") if defined $text_msg;
        }
        elsif (($type and lc($type) ne 'multi') and $message) {
            # standard send using html or plain text
            $stuff->html_body("$message") if $type and $type eq 'html';
            $stuff->text_body("$message") if $type and $type eq 'text';
        }
        else {
            $stuff->text_body("$message");
        }
    }

    confess "Can't send email without a message property"
        unless defined $email->{message};

    # process additional headers
    my %excluded_headers = map { $_ => 1 } @address_headers, qw(
        Cc
        Bcc
        From
        Reply-To
        Subject
        To
    );
    for my $key (grep { !$excluded_headers{$_} } @headers) {
        $stuff->header($key => $headers->{$key})
            if defined $headers->{$key}
    }

    # process attachments - old behavior
    if (my $attachments = $email->{attach}) {
        if (ref($attachments) eq 'ARRAY') {
            my %files = @{$attachments};
            foreach my $file (keys %files) {
                if ($files{$file}) {
                    my $data = read_file($files{$file}, binmode => ':raw');
                    $stuff->attach($data, name => $file, filename => $file);
                }
                else {
                    $stuff->attach_file($file);
                }
            }
        }
    }

    # process attachments - new behavior
    if (my $attachments = $email->{files}) {
        if (ref($attachments) eq 'ARRAY') {
            $stuff->attach_file($_) for @{$attachments};
        }
    }

    # transport email explicitly
    $stuff->transport(@arguments) if @arguments;
    return $stuff if @arguments;

    # transport email implicitly
    my $driver   = $email->{driver};
    my $sendmail = lc($driver) eq 'sendmail';
    my $smtpmail = lc($driver) eq 'smtp';

    # default transport to sendmail
    $sendmail = 1 unless $sendmail or $smtpmail;

    if ($sendmail) {
        my $path = $email->{path};

        $path ||= '/usr/bin/sendmail'  if -f '/usr/bin/sendmail';
        $path ||= '/usr/sbin/sendmail' if -f '/usr/sbin/sendmail';

        $stuff->transport('Sendmail' => (sendmail => $path));
    }

    if ($smtpmail) {
        my %map  = (
            user => 'sasl_username',
            pass => 'sasl_password'
        );
        my @keys = qw(
            debug
            host
            pass
            password
            port
            ssl
            user
            username
        );
        my @params = ();

        for my $key (@keys) {
            push @params, $map{$key} // $key, $email->{$key}
                if defined $email->{$key};
        }

        push @params, 'proto' => 'tcp'; # no longer used
        push @params, 'reuse' => 1;     # no longer used

        $stuff->transport('SMTP' => @params);
    }

    return $stuff;
}

1;

__END__