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