-# The perl/C checking voodoo is mostly stolen from Graham Barr's
-# Scalar-List-Utils distribution.
use strict;
use warnings;
+use inc::Module::Install;
+use 5.008001;
-use ExtUtils::MakeMaker;
-use Config qw(%Config);
-use File::Spec;
+check_conflicts();
-use 5.008;
+name 'Class-MOP';
+perl_version '5.008001';
+all_from 'lib/Class/MOP.pm';
+license 'perl';
-# If undefined, try our best, if true, require XS, if false, never do
-# XS
-my $force_xs;
+my $ccflags = ' -I.';
+$ccflags .= ' -Wall' if -d '.svn' || -d '.git' || $ENV{MAINTAINER_MODE};
-for (@ARGV) {
- /^--pm/ and $force_xs = 0;
- /^--xs/ and $force_xs = 1;
-}
+requires 'Carp';
+requires 'Devel::GlobalDestruction';
+requires 'MRO::Compat' => '0.05';
+requires 'Scalar::Util' => '1.18';
+requires 'Sub::Name' => '0.04';
+requires 'Task::Weaken';
-my $has_compiler = $force_xs;
-unless ( defined $force_xs ) {
- $has_compiler = check_for_compiler()
- or no_cc();
-}
+test_requires 'File::Spec';
+test_requires 'Test::More' => '0.77';
+test_requires 'Test::Exception' => '0.21';
-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',
-);
-
-delete @prereqs{qw(Sub::Name Devel::GlobalDestruction)}
- unless $has_compiler;
-
-if ($has_compiler && is_maintainer()) {
- create_pp_tests();
-}
+makemaker_args( CCFLAGS => $ccflags );
-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',
- );
-}
+{
+ my (@clean, @OBJECT, %XS);
-sub no_cc {
- print <<'EOF';
+ for my $xs (<xs/*.xs>) {
+ (my $c = $xs) =~ s/\.xs$/.c/i;
+ (my $o = $xs) =~ s/\.xs$/\$(OBJ_EXT)/i;
- 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();
+ $XS{$xs} = $c;
+ push @OBJECT, $o;
+ push @clean, $o;
}
-}
-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;
+ for my $c (<*.c>) {
+ (my $o = $c) =~ s/\.c$/\$(OBJ_EXT)/i;
+ push @OBJECT, $o;
+ push @clean, $o;
}
- print F <<'EOF';
-int main() { return 0; }
-EOF
-
- close F or return 0;
+ makemaker_args(
+ clean => { FILES => join(q{ }, @clean) },
+ OBJECT => join (q{ }, @OBJECT),
+ XS => \%XS,
+ );
+}
- my $cc = $Config{cc};
- if ( $cc =~ /cl(\.exe)?$/ ) {
+postamble(<<'EOM');
+$(OBJECT) : mop.h
+EOM
- # stupid stupid MSVC compiler hack tacken from version.pm's
- # Makefile.PL
- $cc .= ' -c'; # prevent it from calling the linker
- }
+WriteAll();
- system("$cc -o test$Config{obj_ext} test.c") and return 0;
+# Use the cpan-smolder-stable script in the Moose svn root to figure
+# out what on CPAN will break with the latest Moose, then update this
+# before a release.
+sub check_conflicts {
+ my %conflicts = (
+ 'Moose' => '0.71',
+ );
- unlink $_ for grep {-f} 'test.c', "test$Config{obj_ext}";
+ my $found = 0;
+ for my $mod ( sort keys %conflicts ) {
+ eval "require $mod";
+ next if $@;
- return 1;
-}
+ my $installed = $mod->VERSION();
+ if ( $installed le $conflicts{$mod} ) {
-# 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};
+ print <<"EOF";
- return 1;
-}
+***
+ This version of Class::MOP conflicts with the version of
+ $mod ($installed) you have installed.
-sub create_pp_tests {
- opendir my $dh, 't' or die "Cannot read t: $!";
+ You will need to upgrade $mod after installing
+ this version of Class::MOP.
+***
- foreach my $file ( grep {/^\d.+\.t$/} readdir $dh ) {
- next if $file =~ /^99/;
+EOF
- my $real_file = File::Spec->catfile( 't', $file );
+ $found = 1;
+ }
+ }
- open my $fh, '<', $real_file
- or die "Cannot read $real_file: $!";
+ return unless $found;
- my $shbang = <$fh>;
- my $test = do { local $/; <$fh> };
+ # More or less copied from Module::Build
+ return if $ENV{PERL_MM_USE_DEFAULT};
+ return unless -t STDIN && ( -t STDOUT || !( -f STDOUT || -c STDOUT ) );
- close $fh;
+ sleep 4;
+}
- $test = "$shbang\nBEGIN { \$ENV{CLASS_MOP_NO_XS} = 1 }\n\n$test";
+package MY;
- my $new_file = File::Spec->catfile( 't', "pp_$file" );
- open my $new_fh, '>', $new_file
- or die "Cannot write to $new_file: $!";
+use Config;
- print $new_fh $test;
+sub const_cccmd {
+ my $ret = shift->SUPER::const_cccmd(@_);
+ return q{} unless $ret;
- close $new_fh;
+ if ($Config{cc} =~ /^cl\b/i) {
+ warn 'you are using MSVC... my condolences.';
+ $ret .= ' /Fo$@';
}
-}
-
-# This is EUMM voodoo
-sub init {
- my $hash = $_[1];
-
- unless ($has_compiler) {
- @{$hash}{ 'XS', 'C' } = ( {}, [] );
+ else {
+ $ret .= ' -o $@';
}
- $hash;
+ return $ret;
}