From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
1234567891011121314151617 use strict;use warnings;use lib 'lib';use Test::More;use File::Find; 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;
use
strict;
warnings;
lib
'lib'
;
Test::More;
File::Find;
find {
wanted
=>
sub
{
return
unless
/\.pm$/;
my
$class
=
substr
$_
,
length
(
$File::Find::topdir
) + 1;
=~ s/\.pm$//;
=~ s!/!::!g;
use_ok
},
no_chdir
=> 1,
done_testing;