t/lib/MyApp1/Schema/Result/CD.pm

   1 package MyApp1::Schema::Result::CD;
   2 use base qw/DBIx::Class::Core/;
   3
   4 __PACKAGE__->load_components(qw/InflateColumn::DateTime/);
   5 __PACKAGE__->table('cd');
   6 __PACKAGE__->add_columns(qw/ cdid artistid title year /);
   7 __PACKAGE__->set_primary_key('cdid');
   8 __PACKAGE__->belongs_to(artist => 'MyApp1::Schema::Result::Artist', 'artistid');
   9
  10 1;