The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More 0.88;

use Test::Needs 'Test::Without::Module';

Test::Without::Module->import('Class::Load::XS');

{
    my @warnings;
    local $SIG{__WARN__} = sub { push @warnings, @_ };
    require Class::Load;

    is_deeply(
        \@warnings, [],
        'no warning from Class::Load when Class::Load::XS is not available'
    );
}

done_testing();