bin/db_gen_schema_dump


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/env perl
use v5.20;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use ASM::DB;
use DBIx::Class::DeploymentHandler;

my $schema = ASM::DB->clone;

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->prepare_install;