X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=43c255f6e9124ee4b97d788171054c974926f2bb;hb=fcd2a200c498a966933ba5089075f195af86823f;hp=549808b6fe30f1a5e005af853e0803e2004d8594;hpb=2b2601b506861fa81674c960752231365bdbf436;p=dbsrgits%2FSQL-Translator.git

diff --git a/Makefile.PL b/Makefile.PL
index 549808b..43c255f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,127 +1,33 @@
-package SQL::Translator;
+# $Id$
 
 use strict;
-use ExtUtils::MakeMaker;
-$|++;
 
-my %PREREQ_PM;
-my %missing = (
-    optional => [ ],
-    required => [ ],
-);
-
-print "Checking for required and recommended modules.\n";
-#              Module Name              Version Optional?
-check_version('Class::Base'             => 0    => 0);
-check_version('File::Basename'          => 0    => 0);
-check_version('File::Spec'              => 0    => 0);
-check_version('GD'                      => 0    => 1);
-check_version('GraphViz'                => 0    => 1);
-check_version('IO::Dir'                 => 0    => 0);
-check_version('IO::File'                => 0    => 0);
-check_version('IO::Scalar'              => 0    => 0);
-check_version('Parse::RecDescent'       => 1.94 => 0);
-check_version('Pod::Usage'              => 0    => 0);
-check_version('Spreadsheet::ParseExcel' => 0    => 1);
-check_version('Template'                => 2.10 => 1);
-check_version('Test::More'              => 0    => 0);
-check_version('Test::Exception'         => 0    => 0);
-check_version('Test::Differences'       => 0    => 1);
-check_version('Text::ParseWords'        => 0    => 0);
-check_version('Text::RecordParser'      => 0.02 => 0);
-check_version('XML::Writer'             => 0    => 1);
-check_version('XML::XPath'              => 0    => 1);
-
-print "\n";
-
-if (@{$missing{'optional'}} + @{$missing{'required'}}) {
-    print "Some components might not work correctly:\n";
-    my $count;
-    if ($missing{'required'}) {
-        $count = scalar(@{$missing{'required'}});
-        printf "  You are missing %d required module%s: %s\n",
-            $count,
-            $count == 1 ? '' : 's',
-            join ', ', @{$missing{'required'}};
-    }
-    if ($missing{'optional'}) {
-        $count = scalar(@{$missing{'optional'}});
-        printf "  You are missing %d optional module%s: %s\n",
-            $count,
-            $count == 1 ? '' : 's',
-            join ', ', @{$missing{'optional'}};
-    }
-
-    print "\n";
+unless (eval "use Module::Build::Compat 0.02; 1" ) {
+  print "This module requires Module::Build to install itself.\n";
+  
+  require ExtUtils::MakeMaker;
+  my $yn = ExtUtils::MakeMaker::prompt
+    ('  Install Module::Build now from CPAN?', 'y');
+  
+  unless ($yn =~ /^y/i) {
+    die " *** Cannot install without Module::Build.  Exiting ...\n";
+  }
+  
+  require Cwd;
+  require File::Spec;
+  require CPAN;
+  
+  # Save this 'cause CPAN will chdir all over the place.
+  my $cwd = Cwd::cwd();
+  
+  CPAN::Shell->install('Module::Build::Compat');
+  CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
+    or die "Couldn't install Module::Build, giving up.\n";
+  
+  chdir $cwd or die "Cannot chdir() back to $cwd: $!";
 }
+eval "use Module::Build::Compat 0.02; 1" or die $@;
 
-WriteMakefile(
-    'NAME'         => __PACKAGE__,
-    'VERSION_FROM' => 'lib/SQL/Translator.pm',
-    'EXE_FILES'    => [
-        'bin/sqlt-diagram.pl',
-        'bin/sqlt-dumper.pl',
-        'bin/sqlt-graph.pl',
-        'bin/sql_translator.pl',
-    ],
-    'PREREQ_PM' => \%PREREQ_PM,
-    'clean' => {
-        FILES => '$(DISTVNAME).tar$(SUFFIX)',
-    },
-);
-
-# ----------------------------------------------------------------------
-# check_version($module, $version, $optional)
-#
-# Takes a module name, optional version number, and a flag indicating
-# whether the module is optional (default is no).
-# ----------------------------------------------------------------------
-sub check_version {
-    my ($module, $version, $optional) = @_;
-    my ($dots, $load);
-
-    if ($version) {
-        $load = "$module $version";
-    }
-    else {
-        $load = $module;
-    }
-
-    $dots = '.' x (36 - length($load));
-
-    eval "use $load;";
-    if ($@) {
-        if ($optional) {
-            push @{$missing{'optional'}}, $module;
-        }
-        else {
-            push @{$missing{'required'}}, $module;
-        }
-        print "$load $dots not found!";
-        if ($optional) {
-            print optional('not found!'), "\n";
-            return;
-        }
-        print required('not found!');
-        print "\n";
-    }
-    else {
-        no strict qw(refs);
-        my $version = ${"$module\::VERSION"};
-        print "$load $dots $version";
-        print $optional ? optional($version) : required($version);
-        print "\n";
-    }
-
-    $PREREQ_PM{$module} = $version;
-}
-
-sub optional { return _message("[optional]", @_) }
-sub required { return _message("", @_) }
-
-sub _message {
-    my ($message, $version) = @_;
-    my $size = 24 - (length "$version");
-    my $fmt = '%' . $size . 's';
-    sprintf $fmt => $message;
-}
+Module::Build::Compat->run_build_pl(args => \@ARGV);
+require Module::Build;
+Module::Build::Compat->write_makefile(build_class => 'Module::Build');