build dbic schema dynamically

gistfile1.pl

package MySchema;
use Moose;
extends 'DBIx::Class::Schema';

use Moose;
use DBIx::Class::ResultSource::Table;

my $result_class = Moose::Meta::Class->create(
    Foo => ( superclasses => ['DBIx::Class::Core'] )
);

my $source = DBIx::Class::ResultSource::Table->new({
    name => 'foo',
    result_class => $result_class->name,
});

$source->add_column( column1 => { data_type => 'integer' } );

MySchema->register_source(foo => $source);

my $schema = MySchema->connect('dbi:SQLite::memory:');
warn $schema->deployment_statements;

# -- 
# -- Created by SQL::Translator::Producer::SQLite
# -- Created on Sat Oct  1 17:16:46 2011
# -- 
# 
# BEGIN TRANSACTION--
# -- Table: foo
# --
# CREATE TABLE foo (
#   column1 integer NOT NULL
# )COMMIT