X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=29160952222b2827f36837e7e464a961003e8c43;hb=89e19730168d5c04041cfbef132b6d40cb4c8a51;hp=f90d648b31d6695e25cc134c1b28dde63fa72b35;hpb=5d6b7412a5eed6f3fafabe52dc97925217d5c40e;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index f90d648..2916095 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,129 +1,142 @@ -package SQL::Translator; - +use inc::Module::Install 0.91; 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"; +use warnings; + +# to deal wuth x.y.z versions properly +configure_requires 'ExtUtils::MakeMaker' => 6.54; + +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, + '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.69, + }, + test_requires => { + 'YAML' => 0.66, + 'File::Basename' => 0, + 'Test::More' => 0.6, + 'Test::Differences' => 0, + 'Test::Exception' => 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'; + +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(); } -WriteMakefile( - 'NAME' => __PACKAGE__, - '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' => \%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; +WriteAll(); + + +sub _recompile_grammars { + # placeholder, will be used to recompile P::RD parsers before shipping + # will also allow to lose dependency on P::RD } -sub optional { return _message("[optional]", @_) } -sub required { return _message("", @_) } +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 < $message; +EOE + exit 1; + } }