
use lib '../lib';
use Mail::Message;

my ($log,$trc)=Mail::Reporter->defaultTrace;
warn "Loglevel=$log, Tracelevel=$trc";
Mail::Reporter->defaultTrace('ERRORS', 'NONE');
($log,$trc)=Mail::Reporter->defaultTrace;
warn "Loglevel=$log, Tracelevel=$trc";
my $mail=Mail::Message->read(\*STDIN);

($log,$trc)=$mail->defaultTrace;
warn "Loglevel=$log, Tracelevel=$trc";
$mail->log(ERROR => "yes?");

