+# The perl/C checking voodoo is mostly stolen from Graham Barr's
+# Scalar-List-Utils distribution.
use strict;
use warnings;
-use inc::Module::Install 0.65;
-name 'Class-MOP';
-all_from 'lib/Class/MOP.pm';
-license 'perl';
+use ExtUtils::MakeMaker;
+use Config qw(%Config);
+use File::Spec;
-requires 'Scalar::Util' => '1.18';
-requires 'Sub::Name' => '0.02';
-requires 'Carp' => '0';
-requires 'B' => '0';
+use 5.008;
-build_requires 'Test::More' => '0.62';
-build_requires 'Test::Exception' => '0.21';
-build_requires 'File::Spec' => '0';
+# If undefined, try our best, if true, require XS, if false, never do
+# XS
+my $force_xs;
-auto_provides;
-WriteAll();
+for (@ARGV) {
+ /^--pm/ and $force_xs = 0;
+ /^--xs/ and $force_xs = 1;
+}
+
+my $has_compiler = $force_xs;
+unless ( defined $force_xs ) {
+ $has_compiler = check_for_compiler()
+ or no_cc();
+}
+
+my %prereqs = (
+ 'Scalar::Util' => '1.18',
+ 'Sub::Name' => '0.04',
+ 'Sub::Identify' => '0.03',
+ 'MRO::Compat' => '0.05',
+ 'Test::More' => '0',
+ 'Test::Exception' => '0',
+ 'File::Spec' => '0',
+ 'Carp' => '0',
+ 'Devel::GlobalDestruction' => '0',
+ 'Task::Weaken' => '0',
+ 'B' => '0',
+);
+
+delete @prereqs{qw(Sub::Name Devel::GlobalDestruction)}
+ unless $has_compiler;
+
+if ($has_compiler && is_maintainer()) {
+ create_pp_tests();
+}
+
+write_makefile();
+
+sub write_makefile {
+ my $ccflags = -d '.svn' || $ENV{MAINTAINER_MODE} ? '-Wall' : '';
+
+ WriteMakefile(
+ VERSION_FROM => 'lib/Class/MOP.pm',
+ NAME => 'Class::MOP',
+ PREREQ_PM => \%prereqs,
+ CONFIGURE => \&init,
+ CCFLAGS => $ccflags,
+ clean => { FILES => 'test.c test.o t/pp*' },
+ ABSTRACT_FROM => 'lib/Class/MOP.pm',
+ AUTHOR => 'Stevan Little <stevan@iinteractive.com>',
+ LICENSE => 'perl',
+ );
+}
+
+sub no_cc {
+ print <<'EOF';
+
+ I cannot determine if you have a C compiler
+ so I will install a perl-only implementation
+
+ You can force installation of the XS version with
+
+ perl Makefile.PL --xs
+
+EOF
+}
+
+sub check_for_compiler {
+ print "Testing if you have a C compiler\n";
+
+ eval { require ExtUtils::CBuilder };
+ if ($@) {
+ return _check_for_compiler_manually();
+ }
+ else {
+ return _check_for_compiler_with_cbuilder();
+ }
+}
+
+sub _check_for_compiler_with_cbuilder {
+ my $cb = ExtUtils::CBuilder->new( quiet => 1 );
+
+ return $cb->have_compiler();
+}
+
+sub _check_for_compiler_manually {
+ unless ( open F, '>', 'test.c' ) {
+ warn
+ "Cannot write test.c, skipping test compilation and installing pure Perl version.\n";
+ return 0;
+ }
+
+ print F <<'EOF';
+int main() { return 0; }
+EOF
+
+ close F or return 0;
+
+ my $cc = $Config{cc};
+ if ( $cc =~ /cl(\.exe)?$/ ) {
+
+ # stupid stupid MSVC compiler hack tacken from version.pm's
+ # Makefile.PL
+ $cc .= ' -c'; # prevent it from calling the linker
+ }
+
+ system("$cc -o test$Config{obj_ext} test.c") and return 0;
+
+ unlink $_ for grep {-f} 'test.c', "test$Config{obj_ext}";
+
+ return 1;
+}
+
+# This sucks, but it's the best guess we can make. Since we just use
+# it to run two sets of tests, it's not big deal if it ends up true
+# for a non-maintainer.
+sub is_maintainer {
+ return 0 if $ENV{PERL5_CPAN_IS_RUNNING} || $ENV{PERL5_CPANPLUS_IS_RUNNING};
+
+ return 1;
+}
+
+sub create_pp_tests {
+ opendir my $dh, 't' or die "Cannot read t: $!";
+
+ foreach my $file ( grep {/^\d.+\.t$/} readdir $dh ) {
+ next if $file =~ /^99/;
+
+ my $real_file = File::Spec->catfile( 't', $file );
+
+ open my $fh, '<', $real_file
+ or die "Cannot read $real_file: $!";
+
+ my $shbang = <$fh>;
+ my $test = do { local $/; <$fh> };
+
+ close $fh;
+
+ $test = "$shbang\nBEGIN { \$ENV{CLASS_MOP_NO_XS} = 1 }\n\n$test";
+
+ my $new_file = File::Spec->catfile( 't', "pp_$file" );
+ open my $new_fh, '>', $new_file
+ or die "Cannot write to $new_file: $!";
+
+ print $new_fh $test;
+
+ close $new_fh;
+ }
+}
+
+# This is EUMM voodoo
+sub init {
+ my $hash = $_[1];
+
+ unless ($has_compiler) {
+ @{$hash}{ 'XS', 'C' } = ( {}, [] );
+ }
+
+ $hash;
+}
projects / gitmo/Class-MOP.git / blobdiff