1package MyDatabase::Main::Result::Artist; 2 3use warnings; 4use strict; 5 6use base qw/DBIx::Class::Core/; 7 8__PACKAGE__->table('artist'); 9 10__PACKAGE__->add_columns(qw/ artistid name /); 11 12__PACKAGE__->set_primary_key('artistid'); 13 14__PACKAGE__->has_many('cds' => 'MyDatabase::Main::Result::Cd'); 15 161; 17 18