X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=148fec7e9a70dafdd9922c7eae92896feef17fda;hb=c3bddac946a236e1876c6cc414adc01c5ab8694a;hp=7b19c113dabe624a2a7e9d7afdd3a9ff2f5f5dd0;hpb=f5d6ae2f18d09d4a915ea9a6b1e50a41ecd0647f;p=dbsrgits%2FSQL-Translator.git diff --git a/Makefile.PL b/Makefile.PL index 7b19c11..148fec7 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -1,54 +1,142 @@ -package SQL::Translator; - +use inc::Module::Install 0.91; use strict; -use ExtUtils::MakeMaker; - -WriteMakefile( - 'NAME' => __PACKAGE__, - 'VERSION_FROM' => 'lib/SQL/Translator.pm', - 'EXE_FILES' => [ - 'bin/sqlt-diagram', - 'bin/sqlt-diff', - 'bin/sqlt-dumper', - 'bin/sqlt-graph', - 'bin/sqlt', - ], - 'PREREQ_PM' => { - 'Class::Base' => 0, - 'File::Basename' => 0, - 'File::Spec' => 0, - 'GD' => 0, - 'GraphViz' => 0, - 'IO::Dir' => 0, - 'IO::File' => 0, - 'IO::Scalar' => 0, - 'Parse::RecDescent' => 1.94, - 'Pod::Usage' => 0, - 'Spreadsheet::ParseExcel' => 0, - 'Template' => 2.10, - 'Test::More' => 0, - 'Test::Exception' => 0, - 'Test::Differences' => 0, - 'Text::ParseWords' => 0, - 'Text::RecordParser' => 0.02, - 'XML::Writer' => 0, - 'XML::XPath' => 1.13, - 'YAML' => 0, - }, - 'clean' => { - FILES => '$(DISTVNAME).tar$(SUFFIX)', - }, -); - -package MY; -use File::Basename qw(basename); - -sub libscan { - my ($self, $file) = @_; - my $bfile = basename($file); - - return if $bfile =~ /^\.(?:cvs)?ignore$/; - return if $bfile =~ /\.swp$/; - - return $self->SUPER::libscan($file); +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.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(); +} + +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 _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 <