Makefile.PL

   1 use inc::Module::Install 1.00;
   2 use strict;
   3 use warnings;
   4
   5 # to deal wuth x.y.z versions properly
   6 configure_requires 'ExtUtils::MakeMaker' => 6.54;
   7
   8 my $deps = {
   9   requires => {
  10     'Class::Base'              => 0,
  11     'Class::Data::Inheritable' => 0.02,
  12     'Class::MakeMethods'       => 0,
  13     'Digest::SHA1'             => 2.00,
  14     'Carp::Clan'               => 0,
  15     'IO::Dir'                  => 0,
  16     'IO::Scalar'               => 2.110,
  17     'Parse::RecDescent'        => 1.962002,
  18     'Pod::Usage'               => 0,
  19     'Class::Accessor::Fast'    => 0,
  20     'DBI'                      => 0,
  21     'File::ShareDir'           => 1.0,
  22     'File::Spec'               => 0,
  23     'Scalar::Util'             => 0,
  24     'XML::Writer'              => 0.500,
  25   },
  26   recommends => {
  27     'Template'                 => 2.20,
  28     'GD'                       => 0,
  29     'GraphViz'                 => 0,
  30     'Graph::Directed'          => 0,
  31     'Spreadsheet::ParseExcel'  => 0.41,
  32     'Text::ParseWords'         => 0,
  33     'Text::RecordParser'       => 0.02,
  34     'XML::LibXML'              => 1.69,
  35   },
  36   test_requires => {
  37     'YAML'                     => 0.66,
  38     'File::Basename'           => 0,
  39     'Test::More'               => 0.6,
  40     'Test::Differences'        => 0,
  41     'Test::Exception'          => 0,
  42   },
  43 };
  44
  45 perl_version '5.005';
  46
  47 name        'SQL-Translator';
  48 author      'Ken Youens-Clark <kclark@cpan.org>';
  49 abstract    'SQL DDL transformations and more';
  50 license     'gpl_2';
  51 repository  'https://sqlfairy.svn.sourceforge.net/svnroot/sqlfairy';
  52 bugtracker  'http://rt.cpan.org/NoAuth/Bugs.html?Dist=SQL-Translator';
  53
  54 resources Ratings => 'http://cpanratings.perl.org/d/SQL-Translator';
  55
  56 all_from    'lib/SQL/Translator.pm';
  57
  58 for my $type (qw/requires recommends test_requires/) {
  59   no strict qw/refs/;
  60   my $f = \&$type;
  61   for my $mod (keys %{$deps->{$type} || {} }) {
  62     $f->($mod, $deps->{$type}{$mod});
  63   }
  64 }
  65
  66 tests_recursive ();
  67
  68 install_script (qw|
  69   script/sqlt-diagram
  70   script/sqlt-diff
  71   script/sqlt-diff-old
  72   script/sqlt-dumper
  73   script/sqlt-graph
  74   script/sqlt
  75 |);
  76
  77 install_share();
  78
  79 auto_provides();
  80
  81 auto_install();
  82
  83 if ($Module::Install::AUTHOR) {
  84   _recompile_grammars();
  85   _recreate_rt_source();
  86 }
  87
  88 WriteAll();
  89
  90 sub _recompile_grammars {
  91   # placeholder, will be used to recompile P::RD parsers before shipping
  92   # will also allow to lose dependency on P::RD
  93 }
  94
  95 sub _recreate_rt_source {
  96   my $base_xml = "t/data/roundtrip.xml";
  97   my $autogen_yaml = "t/data/roundtrip_autogen.yaml";
  98
  99   print "Updating $autogen_yaml\n";
 100
 101   unlink $autogen_yaml;
 102
 103   eval {
 104
 105     use lib 'lib';
 106
 107     require SQL::Translator;
 108     require SQL::Translator::Parser::XML;
 109
 110     open (my $fh, '>', $autogen_yaml) or die "$autogen_yaml: $!\n";
 111
 112     my $tr = SQL::Translator->new;
 113     my $yaml = $tr->translate (
 114       parser => 'XML',
 115       file => $base_xml,
 116       producer => 'YAML',
 117     ) or  die sprintf ("Unable to translate %s to YAML: %s\n",
 118               $base_xml,
 119               $tr->error || 'error unknown'
 120           );
 121
 122     print $fh $yaml;
 123     close $fh;
 124   };
 125
 126   if ($@) {
 127     warn <<EOE;
 128
 129 =========================================================================
 130 ===============              WARNING !!!                =================
 131 =========================================================================
 132
 133 Unable to update the roundtrip schema (attempt triggered by AUTHOR mode).
 134 We will still generate a Makefile, but be aware that if you build a dist
 135 this way, it *WILL* be broken.
 136
 137 -------------------------------------------------------------------------
 138 $@
 139
 140 Press Enter to continue.
 141 EOE
 142   <>;
 143   }
 144 }