LasTres/script/prepare.pl

#!/usr/bin/env perl

use strict;
use warnings;
use aliased 'DBIx::Class::DeploymentHandler' => 'DH';
use Getopt::Long;
use FindBin;
use lib "$FindBin::Bin/../lib";
use LasTres::Schema;

my $force_overwrite = 1;

unless ( GetOptions( 'force_overwrite!' => \$force_overwrite ) ) {
    die "Invalid options";
}

my $schema = LasTres::Schema->Schema;

my $dh = DH->new(
    {
        schema              => $schema,
        script_directory    => "$FindBin::Bin/../dbicdh",
        databases           => 'PostgreSQL',
        sql_translator_args => { add_drop_table => 0 },
        force_overwrite     => $force_overwrite,
    }
);

$dh->prepare_deploy;
eval {
    $dh->prepare_upgrade({
        from_version => $LasTres::Schema::VERSION - 1,
        to_version   => $LasTres::Schema::VERSION
    });
};
if ($@) {
    print "$@\n";
    $dh->prepare_install;
}