00-compile.t   [plain text]

use strict;
use warnings;

use Test::More;

my %deps = (
    ApacheLog             => 'Apache::Log',
    File                  => '',
    'File::Locked'        => '',
    Handle                => '',
    Screen                => '',
    Syslog                => 'Sys::Syslog 0.25',
    '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;
        }
    }
}