X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=9b2418ac502e4a5b5a3315fc9749f01fe4f1d8c5;hb=4384692aca82fb49ad4a49c08d7ddbde85bc4ecb;hp=7d6b75283ca79a86d570ff31a5bd0eb82461cb99;hpb=467b72826293d3d134832d31ccd3c398dbcca3cb;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index 7d6b752..9b2418a 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,68 +1,69 @@ -use inc::Module::Install 0.89; +use inc::Module::Install 1.06; use strict; use warnings; +# to deal wuth x.y.z versions properly +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.096000, # PBP ftw - 'Pod::Usage' => 0, - 'Class::Accessor::Fast' => 0, - 'DBI' => 0, - 'File::ShareDir' => 1.0, - 'File::Spec' => 0, + '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.10, - 'GD' => 0, - 'GraphViz' => 0, - 'Graph::Directed' => 0, - 'IO::File' => 0, - 'IO::Scalar' => 0, - 'Spreadsheet::ParseExcel' => 0.41, - 'Text::ParseWords' => 0, - 'Text::RecordParser' => 0.02, - 'XML::Writer' => 0.500, - 'XML::LibXML' => 1.61, + 'Template' => '2.20', + 'GD' => '0', + 'GraphViz' => '0', + 'Graph::Directed' => '0', + 'Spreadsheet::ParseExcel' => '0.41', + 'Text::RecordParser' => '0.02', + 'XML::LibXML' => '1.69', }, test_requires => { - 'File::Basename' => 0, - 'Test::More' => 0.6, - 'Test::Differences' => 0, - 'Test::Exception' => 0, - 'YAML' => 0.39, + '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 'http://fsf.org/licensing/licenses/gpl.html'; -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/; my $f = \&$type; - for my $mod (keys %{$deps->{$type} || {} }) { + for my $mod (sort keys %{$deps->{$type} || {} }) { $f->($mod, $deps->{$type}{$mod}); } } -tests_recursive (); - install_script (qw| script/sqlt-diagram script/sqlt-diff @@ -74,8 +75,136 @@ 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(); +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 <