Makefile.PL

   1 # The perl/C checking voodoo is mostly stolen from Graham Barr's
   2 # Scalar-List-Utils distribution.
   3 use strict;
   4 use warnings;
   5
   6 use ExtUtils::MakeMaker;
   7 use Config qw(%Config);
   8 use File::Spec;
   9
  10 use 5.008;
  11
  12 # If undefined, try our best, if true, require XS, if false, never do
  13 # XS
  14 my $force_xs;
  15
  16 for (@ARGV) {
  17     /^--pm/ and $force_xs = 0;
  18     /^--xs/ and $force_xs = 1;
  19 }
  20
  21 our $has_compiler = $force_xs;
  22 unless ( defined $force_xs ) {
  23     $has_compiler = check_for_compiler()
  24         or no_cc();
  25 }
  26
  27 my %prereqs = (
  28     'Scalar::Util'             => '1.18',
  29     'Sub::Name'                => '0.04',
  30     'Sub::Identify'            => '0.03',
  31     'MRO::Compat'              => '0.05',
  32     'Test::More'               => '0',
  33     'Test::Exception'          => '0',
  34     'File::Spec'               => '0',
  35     'Carp'                     => '0',
  36     'Devel::GlobalDestruction' => '0',
  37     'Task::Weaken'             => '0',
  38     'B'                        => '0',
  39 );
  40
  41 delete @prereqs{qw(Sub::Name Devel::GlobalDestruction)}
  42     unless $has_compiler;
  43
  44 write_makefile();
  45
  46 sub write_makefile {
  47     my $ccflags = -d '.svn' || $ENV{MAINTAINER_MODE} ? '-Wall' : '';
  48
  49     WriteMakefile(
  50         VERSION_FROM  => 'lib/Class/MOP.pm',
  51         NAME          => 'Class::MOP',
  52         PREREQ_PM     => \%prereqs,
  53         CONFIGURE     => \&init,
  54         CCFLAGS       => $ccflags,
  55         clean         => { FILES => 'test.c test.o t/pp*' },
  56         ABSTRACT_FROM => 'lib/Class/MOP.pm',
  57         AUTHOR        => 'Stevan Little <stevan@iinteractive.com>',
  58         LICENSE       => 'perl',
  59     );
  60 }
  61
  62 sub no_cc {
  63     print <<'EOF';
  64
  65  I cannot determine if you have a C compiler
  66  so I will install a perl-only implementation
  67
  68  You can force installation of the XS version with
  69
  70     perl Makefile.PL --xs
  71
  72 EOF
  73 }
  74
  75 sub check_for_compiler {
  76     print "Testing if you have a C compiler\n";
  77
  78     eval { require ExtUtils::CBuilder };
  79     if ($@) {
  80         return _check_for_compiler_manually();
  81     }
  82     else {
  83         return _check_for_compiler_with_cbuilder();
  84     }
  85 }
  86
  87 sub _check_for_compiler_with_cbuilder {
  88     my $cb = ExtUtils::CBuilder->new( quiet => 1 );
  89
  90     return $cb->have_compiler();
  91 }
  92
  93 sub _check_for_compiler_manually {
  94     unless ( open F, '>', 'test.c' ) {
  95         warn
  96             "Cannot write test.c, skipping test compilation and installing pure Perl version.\n";
  97         return 0;
  98     }
  99
 100     print F <<'EOF';
 101 int main() { return 0; }
 102 EOF
 103
 104     close F or return 0;
 105
 106     my $cc = $Config{cc};
 107     if ( $cc =~ /cl(\.exe)?$/ ) {
 108
 109         # stupid stupid MSVC compiler hack tacken from version.pm's
 110         # Makefile.PL
 111         $cc .= ' -c';    # prevent it from calling the linker
 112     }
 113
 114     system("$cc -o test$Config{obj_ext} test.c") and return 0;
 115
 116     unlink $_ for grep {-f} 'test.c', "test$Config{obj_ext}";
 117
 118     return 1;
 119 }
 120
 121 # This sucks, but it's the best guess we can make. Since we just use
 122 # it to run two sets of tests, it's not big deal if it ends up true
 123 # for a non-maintainer.
 124 sub is_maintainer {
 125     return 0 if $ENV{PERL5_CPAN_IS_RUNNING} || $ENV{PERL5_CPANPLUS_IS_RUNNING};
 126
 127     return 1;
 128 }
 129
 130 sub get_pp_tests {
 131     opendir my $dh, 't' or die "Cannot read t: $!";
 132
 133     return map {
 134         File::Spec->catfile('t', "pp_${_}")
 135     } grep { $_ !~ /^99/ } grep {/^\d.+\.t$/} readdir $dh;
 136 }
 137
 138 # This is EUMM voodoo
 139 sub init {
 140     my $hash = $_[1];
 141
 142     unless ($has_compiler) {
 143         @{$hash}{ 'XS', 'C' } = ( {}, [] );
 144     }
 145
 146     $hash;
 147 }
 148
 149 package MY;
 150
 151 sub postamble {
 152     my $pp_tests = join q{ }, ::get_pp_tests();
 153     my $test_dep = $::has_compiler && ::is_maintainer()
 154         ? 'pure_all :: pp_tests'
 155         : '';
 156
 157     return <<"EOM"
 158 pp_tests: ${pp_tests}
 159
 160 ${test_dep}
 161
 162 t/pp_%: t/% t/header_pp.inc
 163 \t\$(NOECHO) \$(ABSPERLRUN) "-MExtUtils::Command" -e cat t/header_pp.inc \$< > \$@
 164 EOM
 165 }