#!/usr/bin/perl
package DBSchema::People;
use base 'DBIx::Class';
use strict;
use warnings;
__PACKAGE__->load_components(qw/ Core/);
__PACKAGE__->table('people');
__PACKAGE__->add_columns(qw/id app_id first middle last address1 address2 address3 city state zip/);
__PACKAGE__->set_primary_key('id');
package DBSchema;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_classes(qw/People/);
=head
# ---------------------------------------------------------------------------
package main;
use strict;
use warnings;
use base 'DBIx::Class';
my $dsn = "dbi:SQLite:app1.db";
my $vschema = DBIx::Class::Version->connect($dsn, '', '');