Quick DBIx::Class::Schema::Versioned deployment skeleton

db_migrate.pl

#!/usr/bin/env perl

use strict;
use warnings;

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

use Foo::Schema;

my $sql_dir = "$FindBin::Bin/../sql";
my $schema = Foo::Schema->connect('dbi:SQLite:foo.db');
my $schema_version = $schema->schema_version();
my $db_version = $schema->get_db_version();

$schema->create_ddl_dir( undef, $schema_version, $sql_dir, $db_version );

if ($db_version) {
    $schema->upgrade();
}
else {
    $schema->deploy();
}