examples/Schema/MyApp/Schema/Result/Track.pm

   1 package MyApp::Schema::Result::Track;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base qw/DBIx::Class::Core/;
   7
   8 __PACKAGE__->table('track');
   9
  10 __PACKAGE__->add_columns(qw/ trackid cd title/);
  11
  12 __PACKAGE__->set_primary_key('trackid');
  13
  14 __PACKAGE__->belongs_to('cd' => 'MyApp::Schema::Result::Cd');
  15
  16 1;