X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=1e32c5052d65c67a6cb054c576e32ef17b27443d;hb=d46a0890104e4789c6f69cb42e3771722cc3b856;hp=d8bc07cd67d0f29feb6ea8d3fd80ed87ec920e28;hpb=27ae9ae744f9731e58ff047eda8d02f9b96bc86f;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index d8bc07c..1e32c50 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,60 +1,61 @@ -use inc::Module::Install 1.00; +use inc::Module::Install 1.06; use strict; use warnings; # to deal wuth x.y.z versions properly -configure_requires 'ExtUtils::MakeMaker' => 6.54; +configure_requires 'ExtUtils::MakeMaker' => '6.54'; + +perl_version '5.008001'; 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.962002, - 'Pod::Usage' => 0, - 'Class::Accessor::Fast' => 0, - 'DBI' => 0, - 'File::ShareDir' => 1.0, - 'File::Spec' => 0, - 'Scalar::Util' => 0, - 'XML::Writer' => 0.500, - 'Moo' => 0.009007, + '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', + 'List::MoreUtils' => '0.09', + 'Scalar::Util' => '0', }, recommends => { - 'Template' => 2.20, - 'GD' => 0, - 'GraphViz' => 0, - 'Graph::Directed' => 0, - 'Spreadsheet::ParseExcel' => 0.41, - 'Text::ParseWords' => 0, - 'Text::RecordParser' => 0.02, - 'XML::LibXML' => 1.69, + 'Template' => '2.20', + 'GD' => '0', + 'GraphViz' => '0', + 'Graph::Directed' => '0', + 'Spreadsheet::ParseExcel' => '0.41', + 'Text::RecordParser' => '0.02', + 'XML::LibXML' => '1.69', }, test_requires => { - 'YAML' => 0.66, - 'File::Basename' => 0, - 'Test::More' => 0.6, - 'Test::Differences' => 0, - 'Test::Exception' => 0, + 'JSON' => '2.0', + 'YAML' => '0.66', + 'XML::Writer' => '0.500', + 'Test::More' => '0.88', + 'Test::Differences' => '0', + 'Test::Exception' => '0.31', + 'Text::ParseWords' => '0', }, }; -perl_version '5.005'; name 'SQL-Translator'; author 'Ken Youens-Clark '; 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'; +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'; -resources Ratings => 'http://cpanratings.perl.org/d/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/; @@ -64,8 +65,6 @@ for my $type (qw/requires recommends test_requires/) { } } -tests_recursive (); - install_script (qw| script/sqlt-diagram script/sqlt-diff @@ -77,7 +76,28 @@ install_script (qw| install_share(); -auto_provides(); +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(); @@ -89,8 +109,56 @@ if ($Module::Install::AUTHOR) { WriteAll(); sub _recompile_grammars { - # placeholder, will be used to recompile P::RD parsers before shipping - # will also allow to lose dependency on P::RD + 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 { @@ -125,21 +193,19 @@ sub _recreate_rt_source { }; if ($@) { - warn <; } }