The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#! /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,
			},
                        );