The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!perl
use 5.14.0;
my @modules = <<'EOM' =~ m/([A-Z][A-Za-z0-9:]+)/g;
Algorithm::Toy::HashSC
EOM
my $loaded = 0;
for my $m (@modules) {
local $@;
eval "require $m";
if ($@) { bail_out("require failed '$m': $@") }
$loaded++;
}
diag(
"Testing Algorithm::Toy::HashSC $Algorithm::Toy::HashSC::VERSION, Perl $], $^X"
);
is( $loaded, scalar @modules );
done_testing 1