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

use strict;
use lib 'lib';
find {
wanted => sub {
return unless /\.pm$/;
my $class = substr $_, length($File::Find::topdir) + 1; $class =~ s/\.pm$//;
$class =~ s!/!::!g;
use_ok $class;
},
no_chdir => 1,
}, 'lib';
done_testing;