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

#!/usr/bin/env perl
use strict;
BEGIN {
use FindBin;
FindBin::again();
# stuff useful locations into @INC and $PATH
unshift @INC,
dir($FindBin::RealBin)->parent->subdir('lib')->stringify,
dir($FindBin::RealBin, 'lib')->stringify;
$ENV{DANCER_ENVDIR} = '/dev/null';
}
# for netdisco app config
my $test = Test::Compile->new();
my @plfiles = grep {$_ !~ m/(?:graph)/i} $test->all_pl_files();
my @pmfiles = grep {$_ !~ m/(?:graph)/i} $test->all_pm_files();
$test->ok($test->pl_file_compiles($_), "$_ compiles") for @plfiles;
$test->ok($test->pm_file_compiles($_), "$_ compiles") for @pmfiles;
$test->done_testing();