X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=9b2418ac502e4a5b5a3315fc9749f01fe4f1d8c5;hb=c0ec0e22d3f0e3852c00daac5ef5763010b410c3;hp=bc1665408755fff9f54a5444a3461d4acc41c70d;hpb=7a8e1f51386b011bde842a9117afc4fb04f98e41;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index bc16654..9b2418a 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,23 +1,210 @@ -package SQL::Translator; - +use inc::Module::Install 1.06; use strict; -use ExtUtils::MakeMaker; -use Config; - -WriteMakefile( - 'NAME' => __PACKAGE__, - 'VERSION_FROM' => "lib/SQL/Translator.pm", - 'EXE_FILES' => [ - 'bin/sql_translator.pl', - ], - 'PREREQ_PM' => { - 'Parse::RecDescent' => 0, # Is a particular version needed? - 'XML::Dumper' => 0, - 'Pod::Usage' => 0, - }, - clean => { - FILES => 'SQL-Translator-$(VERSION).tar.gz', - }, -); +use warnings; + +# to deal wuth x.y.z versions properly +configure_requires 'ExtUtils::MakeMaker' => '6.54'; + +perl_version '5.008001'; + +my $deps = { + requires => { + 'Digest::SHA' => '0', + 'Carp::Clan' => '0', + 'Parse::RecDescent' => '1.967009', + 'DBI' => '1.54', + 'File::ShareDir' => '1.0', + 'Moo' => '1.000003', + 'Package::Variant' => '1.001001', + 'Sub::Quote' => '0', + 'Try::Tiny' => '0.04', + 'Scalar::Util' => '0', + }, + recommends => { + 'Template' => '2.20', + 'GD' => '0', + 'GraphViz' => '0', + 'Graph::Directed' => '0', + 'Spreadsheet::ParseExcel' => '0.41', + 'Text::RecordParser' => '0.02', + 'XML::LibXML' => '1.69', + }, + test_requires => { + 'JSON' => '2.0', + 'YAML' => '0.66', + 'XML::Writer' => '0.500', + 'Test::More' => '0.88', + 'Test::Differences' => '0', + 'Test::Exception' => '0.31', + 'Text::ParseWords' => '0', + }, +}; + + +name 'SQL-Translator'; +author 'Ken Youens-Clark '; +abstract 'SQL DDL transformations and more'; +license 'perl'; + +resources repository => 'https://github.com/dbsrgits/sql-translator/'; +resources bugtracker => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=SQL-Translator'; +resources Ratings => 'http://cpanratings.perl.org/d/SQL-Translator'; +resources IRC => 'irc://irc.perl.org/#sql-translator'; + +Meta->{values}{x_authority} = 'cpan:JROBINSON'; + +all_from 'lib/SQL/Translator.pm'; +readme_from 'lib/SQL/Translator.pm'; + +for my $type (qw/requires recommends test_requires/) { + no strict qw/refs/; + my $f = \&$type; + for my $mod (sort keys %{$deps->{$type} || {} }) { + $f->($mod, $deps->{$type}{$mod}); + } +} + +install_script (qw| + script/sqlt-diagram + script/sqlt-diff + script/sqlt-diff-old + script/sqlt-dumper + script/sqlt-graph + script/sqlt +|); + +install_share(); + +tests_recursive (); + + +# temporary(?) until I get around to fix M::I wrt xt/ +# needs Module::Install::AuthorTests +eval { + # this should not be necessary since the autoloader is supposed + # to work, but there were reports of it failing + require Module::Install::AuthorTests; + recursive_author_tests (qw/xt/); + 1; +} || do { + if ($Module::Install::AUTHOR) { + my $err = $@; + + # better error message in case of missing dep + eval { require Module::Install::AuthorTests } + || die "\nYou need Module::Install::AuthorTests installed to run this Makefile.PL in author mode:\n\n$@\n"; + + die $err; + } +}; + +auto_install(); + +if ($Module::Install::AUTHOR) { + _recompile_grammars(); + _recreate_rt_source(); +} + +WriteAll(); + +sub _recompile_grammars { + return; # disabled until RT#74593 is resolved + + require File::Spec; + + my $compiled_parser_dir = File::Spec->catdir(qw/ + share PrecompiledParsers Parse RecDescent DDL SQLT + /); + + # Currently consider only single-name parsers containing a grammar marker + # This is somewhat fragile, but better than loading all kinds of parsers + # to some of which we may not even have the deps + my $parser_libdir = 'lib/SQL/Translator/Parser'; + for my $parser_fn (glob "$parser_libdir/*.pm") { + die "$parser_fn does not look like a readable file\n" + unless ( -f $parser_fn and -r $parser_fn ); + + my ($type) = $parser_fn =~ /^\Q$parser_libdir\E\/(.+)\.pm$/i + or die "$parser_fn not named in expected format\n"; + + my $parser_source = do { local (@ARGV, $/) = $parser_fn; <> }; + next unless $parser_source =~ /\$GRAMMAR.+?END_OF_GRAMMAR/s; + + + my $precomp_parser_fn = File::Spec->catfile($compiled_parser_dir, "$type.pm"); + + next if ( + -f $precomp_parser_fn + and + (stat($parser_fn))[9] <= (stat($precomp_parser_fn))[9] + ); + + + print "Precompiling parser for $type\n"; + + require $parser_fn; + require Parse::RecDescent; + + Parse::RecDescent->Precompile( + do { + no strict 'refs'; + ${"SQL::Translator::Parser::${type}::GRAMMAR"} + || die "No \$GRAMMAR global found in SQL::Translator::Parser::$type ($parser_fn)\n" + }, + "Parse::RecDescent::DDL::SQLT::$type" + ); + + rename( "$type.pm", $precomp_parser_fn ) + or die "Unable to move $type.pm to $compiled_parser_dir: $!\n"; + } + +} + +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 ($@) { + die <