Permalink
Browse files

Build.PL: simplify the code, and return to a more declarative way

  • Loading branch information...
book committed Sep 17, 2010
1 parent f4ac5cb commit 27ac97f7a31a3170c08ecb7c90fdc4864aff984f
Showing with 1 addition and 29 deletions.
  1. +1 −29 Build.PL
View
@@ -5,35 +5,7 @@ use Module::Build;
use strict;
use warnings;
-my $class = Module::Build->subclass(
- class => 'Module::Build::FilterTests',
- code => <<'END_HERE',
-
- use File::Glob;
- use File::Spec::Functions;
-
- sub ACTION_disttest
- {
- my $self = shift;
- local $ENV{PERL_RUN_ALL_TESTS} = 1;
- $self->SUPER::ACTION_disttest( @_ );
- }
-
- sub find_test_files
- {
- my $self = shift;
- my $tests = $self->SUPER::find_test_files( @_ );
-
- return $tests unless $ENV{PERL_RUN_ALL_TESTS};
-
- my $test_pattern = catfile(qw( t developer *.t ) );
- unshift @$tests, File::Glob::bsd_glob( $test_pattern );
- return $tests;
- }
-END_HERE
-);
-
-my $builder = $class->new(
+my $builder = Module::Build->new(
module_name => 'Devel::TraceUse',
license => 'perl',
dist_author => 'chromatic <chromatic@wgz.org>',

0 comments on commit 27ac97f

Please sign in to comment.