package MyModuleBuilder; use Module::Build; @ISA = qw(Module::Build); sub ACTION_disttest { my $self = shift; local $ENV{PERL_TESTPOD} = 1; $self->SUPER::ACTION_disttest(@_); } sub find_test_files { my $self = shift; my $tests = $self->SUPER::find_test_files(@_); return $tests if $ENV{PERL_TESTPOD}; return [ grep { $_ !~ /\bpod.*\.t\z/ } @$tests ]; } 1;