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

#!/usr/bin/perl -w
#
# Make sure we can "use" every module
use strict;
use vars qw(@classes);
BEGIN {
eval {
};
if ($@) {
print "1..0 # Skipped - do not have File::Find::Rule installed\n";
exit;
}
}
BEGIN {
@classes = map { my $x = $_;
$x =~ s|^blib/lib/||;
$x =~ s|/|::|g;
$x =~ s|\.pm$||;
$x;
} File::Find::Rule->file()->name('*.pm')->in('blib/lib');
}
use Test::More tests => scalar @classes;
foreach my $class ( @classes ) {
use_ok( $class );
}