X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=96f385cf9d20223a439522cf7b173ea717b94a38;hb=56b9e6a566b09e57d63d8b854f80f84002ae0f14;hp=62046a74b6167820a46beb860fada73af8602673;hpb=9e09fe5a12b77de4afe3ec86e23efd63d88e2011;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index 62046a7..96f385c 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,129 +1,144 @@ -package SQL::Translator; - +use inc::Module::Install 1.00; 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, + 'Scalar::Util' => 0, + 'XML::Writer' => 0.500, + }, + 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, + }, + 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', - 'bin/sqlt-dumper', - 'bin/sqlt-graph', - 'bin/sqlt', - ], - '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 ($@) { + warn < $message; +Press Enter to continue. +EOE + <>; + } }