The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

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