#! /usr/bin/env perl
use strict;
use warnings;
use Interchange6::Schema;
use Getopt::Long;
my ($mysql_version, $postgres_version, $clean);
GetOptions (
"clean" => \$clean,
"mysql_version=s" => \$mysql_version,
"postgres_version=s" => \$postgres_version,
) or die("Error in command line arguments\n");
my $dsn = shift;
my $schema = Interchange6::Schema->connect($dsn);
$schema->create_ddl_dir(['MySQL', 'PostgreSQL'],
$Interchange6::Schema::VERSION,
'./sql',
undef,
# needed for MySQL producer, otherwise booleans are broken
# https://github.com/interchange/interchange6-schema/issues/1
{
producer_args => {
mysql_version => $mysql_version || 5,
postgres_version => $postgres_version || 9,
},
add_drop_table => $clean,
},
);