drop Package::Stash dependency
[p5sagit/namespace-clean.git] / Makefile.PL
index 225cdf6..0c7edc0 100644 (file)
@@ -2,139 +2,185 @@ use strict;
 use warnings;
 use 5.008001;
 
-use ExtUtils::MakeMaker;
-
-my $mymeta_works = eval { ExtUtils::MakeMaker->VERSION('6.5707'); 1 };
-my $mymeta = $mymeta_works || eval { ExtUtils::MakeMaker->VERSION('6.5702'); 1 };
-
-my %BUILD_DEPS = (
-  'Test::More' => '0.88',
-);
-
-my %RUN_DEPS = (
-  'Package::Stash' => '0.23',
-  'B::Hooks::EndOfScope' => '0.12',
-);
-
-# these pieces are needed if using the debugger on the perl range
-my %OPT_RUN_DEPS = ( $] > 5.008_008_9 and $] < 5.013_005_1 and can_xs() )
-  # when changing versions, also change $sn_ver and $si_ver in namespace/clean.pm
-  ? ( 'Sub::Name' => '0.04', 'Sub::Identify' => '0.04' ) : ()
-;
+my %META = (
+  name => 'namespace-clean',
+  license => 'perl_5',
+
+  abstract => 'Keep imports and functions out of your namespace',
+  author => [
+    'Robert \'phaylon\' Sedlacek <rs@474.at>',
+    'Florian Ragwitz <rafl@debian.org>',
+    'Jesse Luehrs <doy@tozt.net>',
+    'Peter Rabbitson <ribasushi@cpan.org>',
+    'Father Chrysostomos <sprout@cpan.org>',
+  ],
+
+  prereqs => {
+    configure => {
+      requires => {
+        'ExtUtils::MakeMaker'   => 0,
+      }
+    },
+    runtime => {
+      requires => {
+        'B::Hooks::EndOfScope' => '0.12',
+        'perl' => '5.008001',
+      },
+    },
+    test => {
+      requires => {
+        'Test::More' => '0.47',
+      }
+    },
+  },
 
-my %META_BITS = (
   resources => {
+    x_IRC => 'irc://irc.perl.org/#toolchain',
     homepage => 'http://search.cpan.org/dist/namespace-clean',
-
-    # EUMM not supporting nested meta :(
-    #repository => {
-    #  type => 'git',
-    #  url => 'git://git.shadowcat.co.uk/p5sagit/namespace-clean.git',
-    #  web => 'http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/namespace-clean.git',
-    #}
-    #bugtracker => {
-    #  mailto => 'bug-namespace-clean@rt.cpan.org',
-    #  web => 'http://rt.cpan.org/Public/Dist/Display.html?Name=namespace-clean',
-    #},
-
-    repository => 'git://git.shadowcat.co.uk/p5sagit/namespace-clean.git',
-    bugtracker => 'http://rt.cpan.org/Public/Dist/Display.html?Name=namespace-clean',
+    repository => {
+      type => 'git',
+      url => 'git://git.shadowcat.co.uk/p5sagit/namespace-clean.git',
+      web => 'https://github.com/p5sagit/namespace-clean',
+    },
+    bugtracker => {
+      mailto => 'bug-namespace-clean@rt.cpan.org',
+      web => 'http://rt.cpan.org/Public/Dist/Display.html?Name=namespace-clean',
+    },
   },
 );
 
-my %WriteMakefileArgs = (
-  'NAME' => 'namespace::clean',
-  'VERSION_FROM' => 'lib/namespace/clean.pm',
-  'ABSTRACT' => 'Keep imports and functions out of your namespace',
-  'AUTHOR' => 'Robert \'phaylon\' Sedlacek <rs@474.at>, Florian Ragwitz <rafl@debian.org>, Jesse Luehrs <doy@tozt.net>',
-  'CONFIGURE_REQUIRES' => { 'ExtUtils::CBuilder' => 0.27 },
-   'PREREQ_PM' => {
-    %RUN_DEPS, %OPT_RUN_DEPS,
-    $mymeta_works ? () : (%BUILD_DEPS),
-  },
-
-  $mymeta_works
-    ? ( # BUILD_REQUIRES makes MYMETA right, requires stops META being wrong
-      'BUILD_REQUIRES' => \%BUILD_DEPS,
-      'META_ADD' => {
-        %META_BITS,
-        requires => \%RUN_DEPS,
-      },
-    )
-    : ( # META_ADD both to get META right - only Makefile written
-      'META_ADD' => {
-        %META_BITS,
-        requires => \%RUN_DEPS,
-        build_requires => \%BUILD_DEPS,
-      },
-    )
-  ,
-
-  ($mymeta and !$mymeta_works) ? ( 'NO_MYMETA' => 1 ) : (),
-
-  'LICENSE' => 'perl',
+my %MM_ARGS = ( (
+  # a sub-namer is needed if using the debugger on some perls
+  do {
+    # sigh... so much unmitigated stupidity on #p5p these days...
+    local @INC = ('lib', @INC);
+    require namespace::clean::_Util;
+  }
+    and
+  namespace::clean::_Util::DEBUGGER_NEEDS_CV_RENAME()
+    and
+  namespace::clean::_Util::_namer_load_error()
+    and
+  usable_compiler_present()
+)
+  # when changing version, also change $sn_ver in namespace/clean/_Util.pm
+  ? ( PREREQ_PM => { 'Sub::Name' => '0.04' } )
+  : ()
 );
 
+## XS-checking BOILERPLATE ###################################################
+sub usable_compiler_present {
+  return 0 if parse_args()->{PUREPERL_ONLY};
 
-unless ( eval { ExtUtils::MakeMaker->VERSION('6.56') } ) {
-  my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
-  my $pp = $WriteMakefileArgs{PREREQ_PM};
-  for my $mod ( keys %$br ) {
-    if ( exists $pp->{$mod} ) {
-      $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
-    }
-    else {
-      $pp->{$mod} = $br->{$mod};
-    }
-  }
-}
+  my $ucp;
 
-delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
-  unless eval { ExtUtils::MakeMaker->VERSION('6.52') };
+  local $@;
+  eval {
+    # poor man's inc::latest
+    my $euhc_fn = 'ExtUtils/HasCompiler.pm';
+    my $euhc_found_in_INC_dir;
+
+    ( ($euhc_found_in_INC_dir) = grep {
+      not length ref $_
+        and
+      -f "$_/$euhc_fn"
+        and
+      -r "$_/$euhc_fn"
+    } @INC )
+      and
+    (
+      MM->parse_version("$euhc_found_in_INC_dir/$euhc_fn")
+        >
+      MM->parse_version("inc/$euhc_fn")
+    )
+      and
+    eval { require ExtUtils::HasCompiler };
 
-WriteMakefile(%WriteMakefileArgs);
+    unless ( $INC{'ExtUtils/HasCompiler.pm'} ) {
+      local @INC = ( "inc", @INC );
+      require ExtUtils::HasCompiler;
+    }
 
-# Secondary compile testing via ExtUtils::CBuilder
-sub can_xs {
-  # Do we have the configure_requires checker?
-  local $@;
-  eval "require ExtUtils::CBuilder;";
-  if ( $@ ) {
-    # They don't obey configure_requires, so it is
-    # someone old and delicate. Try to avoid hurting
-    # them by falling back to an older simpler test.
-    return can_cc();
+    $ucp = ExtUtils::HasCompiler::can_compile_loadable_object(quiet => 1)
+      ? 1
+      : 0
+    ;
+
+    1;
+  };
+
+  if( my $used_fn = $INC{'ExtUtils/HasCompiler.pm'} ) {
+    printf
+      "ExtUtils::HasCompiler::can_compile_loadable_object() v%s (loaded from %s) returned: %s\n",
+      ExtUtils::HasCompiler->VERSION,
+      $used_fn,
+      ( defined($ucp) ? $ucp : "UNKNOWN" ),
+    ;
+  }
+  else {
+    print "Something went wrong when trying to load/use ExtUtils::HasCompiler:\n$@\n\n";
   }
 
-  return ExtUtils::CBuilder->new( quiet => 1 )->have_compiler;
+  $ucp;
 }
 
-# can we locate a (the) C compiler
-sub can_cc {
-  my @chunks = split(/ /, $Config::Config{cc}) or return;
-
-  # $Config{cc} may contain args; try to find out the program part
-  while (@chunks) {
-    return can_run("@chunks") || (pop(@chunks), next);
-  }
 
-  return;
+# FIXME - this has been cargo-culted from
+# https://metacpan.org/source/HAARG/strictures-2.000002/Makefile.PL
+# There likely will be better ways to handle %ENV and @ARGV directly within
+# EU::HC in the future
+sub parse_args {
+  # copied from EUMM
+  require ExtUtils::MakeMaker;
+  require Text::ParseWords;
+  ExtUtils::MakeMaker::parse_args(
+    my $tmp = {},
+    Text::ParseWords::shellwords($ENV{PERL_MM_OPT} || ''),
+    @ARGV,
+  );
+  return $tmp->{ARGS} || {};
+}
+## END XS-checking BOILERPLATE ###############################################
+
+
+## BOILERPLATE ###############################################################
+require ExtUtils::MakeMaker;
+
+# have to do this since old EUMM dev releases miss the eval $VERSION line
+my $eumm_version  = eval $ExtUtils::MakeMaker::VERSION;
+my $mymeta        = $eumm_version >= 6.57_02;
+my $mymeta_broken = $mymeta && $eumm_version < 6.57_07;
+
+($MM_ARGS{NAME} = $META{name}) =~ s/-/::/g;
+($MM_ARGS{VERSION_FROM} = "lib/$MM_ARGS{NAME}.pm") =~ s{::}{/}g;
+$META{license} = [ $META{license} ]
+  if $META{license} && !ref $META{license};
+$MM_ARGS{LICENSE} = $META{license}[0]
+  if $META{license} && $eumm_version >= 6.30;
+$MM_ARGS{NO_MYMETA} = 1
+  if $mymeta_broken;
+$MM_ARGS{META_ADD} = { 'meta-spec' => { version => 2 }, %META }
+  unless -f 'META.yml';
+
+for (qw(configure build test runtime)) {
+  my $key = $_ eq 'runtime' ? 'PREREQ_PM' : uc $_.'_REQUIRES';
+  my $r = $MM_ARGS{$key} = {
+    %{$META{prereqs}{$_}{requires} || {}},
+    %{delete $MM_ARGS{$key} || {}},
+  };
+  defined $r->{$_} or delete $r->{$_} for keys %$r;
 }
 
-# check if we can run some command
-sub can_run {
-  my ($cmd) = @_;
-
-  return $cmd if -x $cmd;
-  if (my $found_cmd = MM->maybe_command($cmd)) {
-    return $found_cmd;
-  }
+$MM_ARGS{MIN_PERL_VERSION} = delete $MM_ARGS{PREREQ_PM}{perl} || 0;
 
-  for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
-    next if $dir eq '';
-    my $abs = File::Spec->catfile($dir, $cmd);
-    return $abs if (-x $abs or $abs = MM->maybe_command($abs));
-  }
+delete $MM_ARGS{MIN_PERL_VERSION}
+  if $eumm_version < 6.47_01;
+$MM_ARGS{BUILD_REQUIRES} = {%{$MM_ARGS{BUILD_REQUIRES}}, %{delete $MM_ARGS{TEST_REQUIRES}}}
+  if $eumm_version < 6.63_03;
+$MM_ARGS{PREREQ_PM} = {%{$MM_ARGS{PREREQ_PM}}, %{delete $MM_ARGS{BUILD_REQUIRES}}}
+  if $eumm_version < 6.55_01;
+delete $MM_ARGS{CONFIGURE_REQUIRES}
+  if $eumm_version < 6.51_03;
 
-  return;
-}
+ExtUtils::MakeMaker::WriteMakefile(%MM_ARGS);
+## END BOILERPLATE ###########################################################