use strict;
use Test::More;
my %deps =
( ApacheLog => 'Apache::Log',
File => '',
'File::Locked' => '',
Handle => '',
Screen => '',
Syslog => 'Sys::Syslog',
'Email::MailSend' => 'Mail::Send',
'Email::MIMELite' => 'MIME::Lite',
'Email::MailSendmail' => 'Mail::Sendmail',
'Email::MailSender' => 'Mail::Sender',
);
plan tests => 1 + scalar keys %deps;
use_ok('Log::Dispatch');
for my $subclass ( sort keys %deps )
{
my $module = "Log::Dispatch::$subclass";
if ( ! $deps{$subclass}
||
( eval "use $deps{$subclass}; 1" && ! $@ )
)
{
use_ok($module);
}
else
{
SKIP:
{
skip "Cannot load $module without $deps{$subclass}", 1;
}
}
}