Include method name in immutable methods (fixes #49680)
[gitmo/Class-MOP.git] / Makefile.PL
index 1d0322d..a872582 100644 (file)
-# 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;
+require Config;
+my $ccflags = ( $Config::Config{ccflags} || '' ) . ' -I.';
+$ccflags .= ' -Wall' if -d '.svn' || -d '.git' || $ENV{MAINTAINER_MODE};
 
-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',
-);
-
-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',
-    );
-}
+requires 'Carp';
+requires 'Devel::GlobalDestruction';
+requires 'MRO::Compat'  => '0.05';
+requires 'Scalar::Util' => '1.18';
+requires 'Sub::Name'    => '0.04';
+requires 'Task::Weaken';
 
-sub no_cc {
-    print <<'EOF';
+test_requires 'File::Spec';
+test_requires 'Test::More'      => '0.88';
+test_requires 'Test::Exception' => '0.27';
 
- I cannot determine if you have a C compiler
- so I will install a perl-only implementation
+extra_tests();
 
- You can force installation of the XS version with
+makemaker_args( CCFLAGS => $ccflags );
 
-    perl Makefile.PL --xs
+{
+    my (@clean, @OBJECT, %XS);
 
-EOF
-}
+    for my $xs (<xs/*.xs>) {
+        (my $c = $xs) =~ s/\.xs$/.c/i;
+        (my $o = $xs) =~ s/\.xs$/\$(OBJ_EXT)/i;
 
-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.85',
+    );
 
-    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;
 }