Re^2: mime lite

I am trying to add error checking for Mime::Lite too, however the documentation only shows this:

$msg->send || die "you DON'T have mail!";
[download]

however that does not say what was wrong, it does not give the exception error, so that we know what happened, other than it did not send the email, which would be obvious if we did this:

if($msg->send()) {
 # Say that the message was sent... or if in a subroutine just:
 return 1;
} else {
 # Give error message but what do we show to actually put what happene
+d? if in a subroutine return 0; but set an error such as:
#$Mime::Lite::error or something similar...
}
[download]

Any clues how to get the errors message to figure out what went wrong?

Thanks

Comment on Re^2: mime lite Select or Download Code

Replies are listed 'Best First'.

Re^3: mime lite
by Anonymous Monk on Aug 18, 2009 at 22:19 UTC

use Test::Trap qw/ :output(systemsafe) /;
    $_sendError = "";
    trap { $msg->send('smtp', 'mail.wholewellnessclub.com', AuthUser=>
+'somemailuser@somedomain.com', AuthPass=>'$_encEmPass') || $_sendErro
+r = $@ };
    $_ and $_sendError = $_ for $trap->die, $trap->stdout, $trap->stde
+rr;
    if($_sendError) {
        return 0;
    } else {
        return 1;
    }
[download]

Can't modify logical or (||) in scalar assignment at /path/to/data/fil
+e/Send_Mime_Lite_Email.data line 39, near "$@ }"
# That code is above...
[download]

[reply]
[d/l]
[select]


We don't bite newbies here... much
	PerlMonks