File Coverage

blib/lib/Test/Smoke/Mailer/MIME_Lite.pm

Criterion	Covered	Total	%
statement	9	31	29.0
branch	0	26	0.0
condition	0	5	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	67	19.4

package Test::Smoke::Mailer::MIME_Lite;
use warnings;
use strict;

our $VERSION = '0.016';

use base 'Test::Smoke::Mailer::Base';

=head1 Test::Smoke::Mailer::MIME_Lite

This handles sending the message using the B module.

=head1 DESCRIPTION

=head2 Test::Smoke::Mailer::MIME_Lite->new( %args )

Keys for C<%args>:

  * ddir
  * mserver
  * msport
  * msuser
  * mspass
  * to
  * from
  * cc
  * v

=cut

=head2 $mailer->mail( )

C sets up the message to be send by B.

=cut

sub mail {
    my $self = shift;

    eval { require MIME::Lite; };

    $self->{error} = $@ and return undef;

    my $subject = $self->fetch_report();
    my $cc = $self->_get_cc( $subject );

    my %message = (
        To      => $self->{to},
        Subject => $subject,
        Type    => "TEXT",
        Data    => $self->{body},
    );
    $message{Cc}   = $cc  if $cc;
    $message{Bcc}   = $self->{bcc} if $self->{bcc};
    $message{From} = $self->{from} if $self->{from};

    if ($self->{mserver}) {
        my %authinfo = ();
        $authinfo{AuthUser} = $self->{msuser} if $self->{msuser};
        $authinfo{AuthPass} = $self->{mspass} if defined $self->{mspass};
        MIME::Lite->send(
            smtp       => $self->{mserver},
            Port       => ($self->{msport} || 25),
            FromSender => $self->{from},
            Debug      => ($self->{v} > 1),
            %authinfo,
        );
    }

    my $ml_msg = MIME::Lite->new( %message );
    $ml_msg->attr( 'content-type.charset' => 'UTF8' )
        if exists $ENV{LANG} && $ENV{LANG} =~ /utf-?8$/i;

    $self->{v} > 1 and print "[MIME::Lite]\n";
    $self->{v} and print "Sending report to $self->{to} ";

    $ml_msg->send or $self->{error} = "Problem sending mail";

    $self->{v} and print $self->{error} ? "not OK\n" : "OK\n";

    return ! $self->{error};
}

1;

=head1 COPYRIGHT

(c) 2002-2013, All rights reserved.

  * Abe Timmerman

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

See:

  * ,
  *

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

=cut