X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=14b4c78f23063089cacf6756bc270b2856726362;hb=9cbbf4df528c37ce30733c7cc9b279b970ce0ac0;hp=e4714f57963a3e02f5a76ddd956fa31a0032fc16;hpb=5adf702552b81cde7fc9e632ccd49de1aaa29630;p=dbsrgits%2FSQL-Translator.git

diff --git a/Makefile.PL b/Makefile.PL
index e4714f5..14b4c78 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2,16 +2,128 @@ package SQL::Translator;
 
 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    => 0);
+check_version('Text::ParseWords'        => 0    => 0);
+check_version('Text::RecordParser'      => 0.02 => 0);
+check_version('XML::Writer'             => 0    => 1);
+check_version('XML::XPath'              => 1.13 => 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";
+}
 
 WriteMakefile(
     'NAME'         => __PACKAGE__,
-    'VERSION_FROM' => "lib/SQL/Translator.pm",
+    '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'    => {
-        'Parse::RecDescent'  => 0,  # Is a particular version needed?
-        'XML::Writer'        => 0,
-        'Pod::Usage'         => 0,
+    '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) {
+        $version = sprintf "%.02f", $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 $ver = sprintf "%.02f" => ${"$module\::VERSION"};
+        print "$load $dots $ver";
+        print $optional ? optional($ver) : required($ver);
+        print "\n";
+        $version = $ver;
+    }
+
+    $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;
+}