From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
my @modules;
find(
{
wanted => sub {
my $module = $File::Find::name;
return unless $module =~ s/\.pm$//;
$module =~ s!^lib/!!;
$module =~ s!/!::!g;
push @modules, join '::', $module;
},
chdir => 0,
},
'lib'
);
use_ok($_)
or BAIL_OUT(" $_ module does not compile :-(")
for @modules;
done_testing;