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