1#!/usr/bin/perl -w 2 3use strict; 4 5use Test::More; 6 7my %deps = 8 ( ApacheLog => 'Apache::Log', 9 File => '', 10 'File::Locked' => '', 11 Handle => '', 12 Screen => '', 13 Syslog => 'Sys::Syslog', 14 'Email::MailSend' => 'Mail::Send', 15 'Email::MIMELite' => 'MIME::Lite', 16 'Email::MailSendmail' => 'Mail::Sendmail', 17 'Email::MailSender' => 'Mail::Sender', 18 ); 19 20plan tests => 1 + scalar keys %deps; 21 22use_ok('Log::Dispatch'); 23 24for my $subclass ( sort keys %deps ) 25{ 26 my $module = "Log::Dispatch::$subclass"; 27 28 if ( ! $deps{$subclass} 29 || 30 ( eval "use $deps{$subclass}; 1" && ! $@ ) 31 ) 32 { 33 use_ok($module); 34 } 35 else 36 { 37 SKIP: 38 { 39 skip "Cannot load $module without $deps{$subclass}", 1; 40 } 41 } 42} 43