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

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