view release on metacpan or  search on metacpan

t/01compile.t  view on Meta::CPAN

# use mock modules for non-available ones
if ($OSNAME eq 'MSWin32') {
    push @INC, 't/lib/fake/unix';
} else {
    push @INC, 't/lib/fake/windows';
}

# exclude linked modules
my @files = grep { filter($_) } Test::Compile::all_pm_files('lib');

Test::Compile::all_pm_files_ok(@files);

# filename-based filter
sub filter {

    if (!$Config{usethreads} || $Config{usethreads} ne 'define') {
        return 0 if $_ =~ m{FusionInventory/Agent/Task/NetInventory.pm};
        return 0 if $_ =~ m{FusionInventory/Agent/Task/NetDiscovery.pm};
        return 0 if $_ =~ m{FusionInventory/Agent/Task/WMI.pm};
        return 0 if $_ =~ m{FusionInventory/Agent/Tools/Win32.pm};
        return 0 if $_ =~ m{FusionInventory/Agent/Daemon/Win32.pm};