package Main::Name; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto Core/); __PACKAGE__->table('name'); __PACKAGE__->add_columns( id => {data_type => 'integer', is_nullable => 0, is_auto_increment => 1}, name => {data_type => 'varchar',is_nullable => 0,size => 255,}, ); __PACKAGE__->set_primary_key('id'); __PACKAGE__->has_many('persons', 'Main::Person'); __PACKAGE__->add_unique_constraint(['name']); 1;