#!/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;