#!/usr/bin/perl -w

use strict;

use lib './lib', '../lib';

use Log::Dispatch::Email::MailSend;

Mail::Mailer->import( sendmail => 't/sendmail' );

my $email = Log::Dispatch::Email::MailSend->new(
    name      => 'email',
    min_level => 'emerg',
    to        => 'foo@example.com',
    subject   => 'Log this',
);

$email->log( message => 'Something bad is happening', level => 'emerg' );

exit 5;