package MyDatabase::Result::Artist; use strict; use warnings; use base qw/DBIx::Class::Core/; __PACKAGE__->table('artist'); __PACKAGE__->add_columns( artistid => { data_type => 'integer', is_auto_increment => 1, }, name => { data_type => 'text', is_nullable => 0, } ); __PACKAGE__->set_primary_key('artistid'); __PACKAGE__->add_unique_constraint(['name']); __PACKAGE__->has_many( 'cds' => 'MyDatabase::Result::Cd' ); 1;