maint/Makefile.PL.include

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 {
   5   package MY;
   6
   7   {
   8     no warnings 'once'; push @ExtUtils::MakeMaker::Overridable, 'find_tests';
   9   }
  10
  11   sub find_tests {
  12     shift->SUPER::find_tests.' xt/*.t';
  13   }
  14
  15   sub postamble { 'include maint/Makefile.include' }
  16 }
  17
  18 {
  19   no warnings 'redefine';
  20   sub WriteMakefile {
  21     my %args = @_;
  22     ExtUtils::MakeMaker::WriteMakefile(
  23       %args,
  24       AUTHOR => 'Ken Williams <kwilliams@cpan.org>, Randy W. Sims <RandyS@ThePierianSpring.org>',
  25       ABSTRACT_FROM => $args{VERSION_FROM},
  26       LICENSE => 'perl',
  27     );
  28   }
  29 }
  30
  31 sub manifest_include {
  32   use autodie;
  33   my @files = @_;
  34   my @parts;
  35   while (my ($dir, $spec) = splice(@files, 0, 2)) {
  36     my $re = ($dir ? $dir.'/' : '').
  37       ((ref($spec) eq 'Regexp')
  38         ? $spec
  39         : !ref($spec)
  40           ? ".*\Q${spec}\E"
  41           : die "spec must be string or regexp, was: ${spec} (${\ref $spec})");
  42     push @parts, $re;
  43   }
  44   my $final = '^(?!'.join('|', map "${_}\$", @parts).')';
  45   open my $skip, '>', 'MANIFEST.SKIP';
  46   print $skip "${final}\n";
  47   close $skip;
  48 }
  49
  50 manifest_include(
  51   'lib' => '.pm',
  52   't' => '.t',
  53   't/lib' => '.pm',
  54   'xt' => '.t',
  55   'xt/lib' => '.pm',
  56   '' => '.PL',
  57   '' => qr{Changes|MANIFEST|README|META\.yml},
  58   'maint' => qr{[^.].*},
  59 );
  60
  61 1;