use strict; use warnings; use Carp::Always; use Devel::VersionDump;
BEGIN {

    package Moblo::Schema::Result::Post;
    use base qw/DBIx::Class::Core/;

    # Associated table in database
    __PACKAGE__->table('posts');

    # Column definition
    __PACKAGE__->add_columns(
        id => {
            data_type         => 'integer',
            is_auto_increment => 1,
        },
        author => {
            data_type => 'text',
        },
        title => {
            data_type => 'text',
        },
        content => {
            data_type => 'text',
        },
        date_published => {
            data_type => 'datetime',
        },
    );

    # Tell DBIC that 'id' is the primary key
    __PACKAGE__->set_primary_key('id');
    1;
    $INC{'Moblo/Schema/Result/Post.pm'} = __FILE__;
}

BEGIN {

    package Moblo::Schema;

    # based on the DBIx::Class Schema base class
    use base qw/DBIx::Class::Schema/;

    # This will load any classes within
    # Moblo::Schema::Result and Moblo::Schema::ResultSet (if any)
    __PACKAGE__->load_namespaces();
    1;
    $INC{'Moblo/Schema.pm'} = __FILE__;
}

package main;
my $schema = Moblo::Schema->connect('dbi:SQLite:goner.moblo.db');
$schema->deploy(
    { add_drop_table => 1 },
);
$schema->create_ddl_dir;
__END__
$ ls -loanh goner.moblo.db
-rw-rw-rw-  1 0 0 2015-03-16 23:50 goner.moblo.db

$ ls -loanh Moblo*sql
-rw-rw-rw-  1 0 156 2015-03-17 00:27 Moblo-Schema-1.x-MySQL.sql
-rw-rw-rw-  1 0 103 2015-03-17 00:27 Moblo-Schema-1.x-PostgreSQL.sql
-rw-rw-rw-  1 0 132 2015-03-17 00:27 Moblo-Schema-1.x-SQLite.sql

$ cat moblo*sql
--
-- Created by SQL::Translator::Producer::MySQL
-- Created on Tue Mar 17 00:27:26 2015
--
SET foreign_key_checks=0;

SET foreign_key_checks=1;

--
-- Created by SQL::Translator::Producer::PostgreSQL
-- Created on Tue Mar 17 00:27:26 2015
--
--
-- Created by SQL::Translator::Producer::SQLite
-- Created on Tue Mar 17 00:27:26 2015
--

BEGIN TRANSACTION;

COMMIT;
[download]