#!/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, '', '');