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