1 use inc::Module::Install 0.89;
8 'Class::Data::Inheritable' => 0.02,
9 'Class::MakeMethods' => 0,
10 'Digest::SHA1' => 2.00,
13 'IO::Scalar' => 2.110,
14 'Parse::RecDescent' => 1.096000, # PBP ftw
16 'Class::Accessor::Fast' => 0,
18 'File::ShareDir' => 1.0,
20 'XML::Writer' => 0.500,
26 'Graph::Directed' => 0,
27 'Spreadsheet::ParseExcel' => 0.41,
28 'Text::ParseWords' => 0,
29 'Text::RecordParser' => 0.02,
30 'XML::LibXML' => 1.61,
33 'File::Basename' => 0,
35 'Test::Differences' => 0,
36 'Test::Exception' => 0,
43 name 'SQL-Translator';
44 author 'Ken Youens-Clark <kclark@cpan.org>';
45 abstract 'SQL DDL transformations and more';
47 repository 'https://sqlfairy.svn.sourceforge.net/svnroot/sqlfairy';
48 bugtracker 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=SQL-Translator';
50 resources Ratings => 'http://cpanratings.perl.org/d/SQL-Translator';
52 all_from 'lib/SQL/Translator.pm';
54 for my $type (qw/requires recommends test_requires/) {
57 for my $mod (keys %{$deps->{$type} || {} }) {
58 $f->($mod, $deps->{$type}{$mod});
79 if ($Module::Install::AUTHOR) {
80 _recompile_grammars();
81 _recreate_rt_source();
87 sub _recompile_grammars {
88 # placeholder, will be used to recompile P::RD parsers before shipping
89 # will also allow to lose dependency on P::RD
92 sub _recreate_rt_source {
93 my $base_xml = "t/data/roundtrip.xml";
94 my $autogen_yaml = "t/data/roundtrip_autogen.yaml";
96 print "Updating $autogen_yaml\n";
104 require SQL::Translator;
105 require SQL::Translator::Parser::XML;
107 open (my $fh, '>', $autogen_yaml) or die "$autogen_yaml: $!\n";
109 my $tr = SQL::Translator->new;
110 my $yaml = $tr->translate (
114 ) or die sprintf ("Unable to translate %s to YAML: %s\n",
116 $tr->error || 'error unknown'
126 =========================================================================
127 =============== FATAL ERROR =================
128 =========================================================================
130 Unable to update the roundtrip schema (attempt triggered by AUTHOR mode).
131 Aborting Makefile generation.