X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=22aaa67b7a34a32de5c3e29042135c0a7ad16fca;hb=7d8f0a61b9fbd54e85625c0f9857fc000ae11bfd;hp=33412805791c6464316c569ab19b5b532efbd0a6;hpb=55879795391cb00327a57c778677dac6ac0ed587;p=dbsrgits%2FSQL-Translator.git

diff --git a/Makefile.PL b/Makefile.PL
index 3341280..22aaa67 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,60 +1,138 @@
-package SQL::Translator;
-
+use inc::Module::Install 0.89;
 use strict;
-use ExtUtils::MakeMaker;
+use warnings;
+
+my $deps = {
+  requires => {
+    'Class::Base'              => 0,
+    'Class::Data::Inheritable' => 0.02,
+    'Class::MakeMethods'       => 0,
+    'Digest::SHA1'             => 2.00,
+    'Carp::Clan'               => 0,
+    'IO::Dir'                  => 0,
+    'IO::Scalar'               => 2.110,
+    'Parse::RecDescent'        => 1.096000,   # PBP ftw
+    'Pod::Usage'               => 0,
+    'Class::Accessor::Fast'    => 0,
+    'DBI'                      => 0,
+    'File::ShareDir'           => 1.0,
+    'File::Spec'               => 0,
+    'XML::Writer'              => 0.500,
+  },
+  recommends => {
+    'Template'                => 2.10,
+    'GD'                      => 0,
+    'GraphViz'                => 0,
+    'Graph::Directed'         => 0,
+    'Spreadsheet::ParseExcel' => 0.41,
+    'Text::ParseWords'        => 0,
+    'Text::RecordParser'      => 0.02,
+    'XML::LibXML'             => 1.61,
+  },
+  test_requires => {
+    'File::Basename'          => 0,
+    'Test::More'              => 0.6,
+    'Test::Differences'       => 0,
+    'Test::Exception'         => 0,
+    'YAML'                    => 0.39,
+  },
+};
+
+perl_version '5.005';
+
+name        'SQL-Translator';
+author      'Ken Youens-Clark <kclark@cpan.org>';
+abstract    'SQL DDL transformations and more';
+license     'gpl';
+repository  'https://sqlfairy.svn.sourceforge.net/svnroot/sqlfairy';
+bugtracker  'http://rt.cpan.org/NoAuth/Bugs.html?Dist=SQL-Translator';
+
+resources Ratings => 'http://cpanratings.perl.org/d/SQL-Translator';
+
+all_from    'lib/SQL/Translator.pm';
+
+for my $type (qw/requires recommends test_requires/) {
+  no strict qw/refs/;
+  my $f = \&$type;
+  for my $mod (keys %{$deps->{$type} || {} }) {
+    $f->($mod, $deps->{$type}{$mod});
+  }
+}
+
+tests_recursive ();
+
+install_script (qw|
+  script/sqlt-diagram
+  script/sqlt-diff
+  script/sqlt-diff-old
+  script/sqlt-dumper
+  script/sqlt-graph
+  script/sqlt
+|);
+
+install_share();
+
+auto_provides();
+
+auto_install();
+
+if ($Module::Install::AUTHOR) {
+  _recompile_grammars();
+  _recreate_rt_source();
+}
 
-my @SIGN;
-if ($ExtUtils::MakeMaker::VERSION >= 6.18) {
-    @SIGN = (SIGN => 1);
+WriteAll();
+
+
+sub _recompile_grammars {
+  # placeholder, will be used to recompile P::RD parsers before shipping
+  # will also allow to lose dependency on P::RD
 }
 
-WriteMakefile(
-    'NAME'         => __PACKAGE__,
-    @SIGN,
-    'VERSION_FROM' => 'lib/SQL/Translator.pm',
-    'EXE_FILES'    => [
-        'bin/sqlt-diagram',
-        'bin/sqlt-diff',
-        'bin/sqlt-dumper',
-        'bin/sqlt-graph',
-        'bin/sqlt',
-    ],
-    'PREREQ_PM'    => {
-        'Class::Base'             => 0,
-        'File::Basename'          => 0,
-        'File::Spec'              => 0,
-        'GD'                      => 0,
-        'GraphViz'                => 0,
-        'IO::Dir'                 => 0,
-        'IO::File'                => 0,
-        'IO::Scalar'              => 0,
-        'Parse::RecDescent'       => 1.94,
-        'Pod::Usage'              => 0,
-        'Spreadsheet::ParseExcel' => 0.2602,
-        'Template'                => 2.10,
-        'Test::More'              => 0,
-        'Test::Exception'         => 0,
-        'Test::Differences'       => 0,
-        'Text::ParseWords'        => 0,
-        'Text::RecordParser'      => 0.02,
-        'XML::Writer'             => 0.500,
-        'XML::XPath'              => 1.13,
-        'YAML'                    => 0,
-    },
-    'clean'        => {
-        FILES => '$(DISTVNAME).tar$(SUFFIX)',
-    },
-);
-
-package MY;
-use File::Basename qw(basename);
-
-sub libscan {
-    my ($self, $file) = @_;
-    my $bfile = basename($file);
-
-    return if $bfile =~ /^\.(?:cvs)?ignore$/;
-    return if $bfile =~ /\.swp$/;
-
-    return $self->SUPER::libscan($file);
+sub _recreate_rt_source {
+  my $base_xml = "t/data/roundtrip.xml";
+  my $autogen_yaml = "t/data/roundtrip_autogen.yaml";
+
+  print "Updating $autogen_yaml\n";
+
+  unlink $autogen_yaml;
+
+  eval {
+
+    use lib 'lib';
+
+    require SQL::Translator;
+    require SQL::Translator::Parser::XML;
+
+    open (my $fh, '>', $autogen_yaml) or die "$autogen_yaml: $!\n";
+
+    my $tr = SQL::Translator->new;
+    my $yaml = $tr->translate (
+      parser => 'XML',
+      file => $base_xml,
+      producer => 'YAML',
+    ) or  die sprintf ("Unable to translate %s to YAML: %s\n",
+              $base_xml,
+              $tr->error || 'error unknown'
+          );
+
+    print $fh $yaml;
+    close $fh;
+  };
+
+  if ($@) {
+    print <<EOE;
+
+=========================================================================
+===============              FATAL ERROR                =================
+=========================================================================
+
+Unable to update the roundtrip schema (attempt triggered by AUTHOR mode).
+Aborting Makefile generation.
+
+$@
+
+EOE
+    exit 1;
+  }
 }