examples/Schema/MyDatabase/Main/Result/Artist.pm

   1 package MyDatabase::Main::Result::Artist;
   2 use base qw/DBIx::Class/;
   3 __PACKAGE__->load_components(qw/PK::Auto Core/);
   4 __PACKAGE__->table('artist');
   5 __PACKAGE__->add_columns(qw/ artistid name /);
   6 __PACKAGE__->set_primary_key('artistid');
   7 __PACKAGE__->has_many('cds' => 'MyDatabase::Main::Result::Cd');
   8
   9 1;
  10