1use strict; 2use warnings; 3 4use Log::Dispatch::Email::MailSend; 5 6Mail::Mailer->import( sendmail => 't/sendmail' ); 7 8my $email = Log::Dispatch::Email::MailSend->new( 9 name => 'email', 10 min_level => 'emerg', 11 to => 'foo@example.com', 12 subject => 'Log this', 13); 14 15$email->log( message => 'Something bad is happening', level => 'emerg' ); 16 17exit 5; 18