#!/usr/bin/env perl use v5.20; use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use ASM::Config; use ASM::DB; use Getopt::Long; use DBIx::Class::DeploymentHandler; GetOptions( 'config|c=s' => \$::cset ); if ( $::cset eq '' ) { $::cset = 'config-default'; } else { $::cset = "config-$::cset"; } ASM::Config->readConfig(); my $schema = ASM::DB->connect( $::mysql->{dsn}, $::mysql->{user}, $::mysql->{pass} ); my $dh = DBIx::Class::DeploymentHandler->new( { schema => $schema, schema_version => '' . $schema->schema_version, sql_translator_args => { add_drop_table => 0, quote_identifiers => 1 }, databases => [], ignore_ddl => 1, } ); $dh->install_version_storage; $dh->add_database_version( { version => 1 } );