auto-deploying a database schema from catalyst app

auto-deploy.pl

use DBIx::Class::DeploymentHandler;

# (removed standard Catalyst app module stuff)

# Start the application
__PACKAGE__->setup();

my $model = __PACKAGE__->model('DB');
my $dh = DBIx::Class::DeploymentHandler->new({
    schema => $model->schema,
    force_overwrite => 0,
    script_directory => __PACKAGE__->path_to("ddl")->stringify,
    databases => ['MySQL'],
});
if ($dh->version_storage_is_installed) {
    if ($dh->next_version_set) {
        warn "next version set is not undef - we should call upgrade()";
        my $ret = eval {
            $dh->upgrade();
        };
        die "upgrade failed: $@\n" if $@;
    } else {
        warn "next version is undef - nothing to do";
    }
} else {
    warn "version storage is installed - we should call install()";
    my $ret = eval {
        $dh->install();
    };
    die "install failed: $@\n" if $@;
}