Commit | Line | Data |
---|---|---|
4bea5048 | 1 | package MyDatabase::Main::Result::Cd; |
0c337847 | 2 | use base qw/DBIx::Class/; |
3 | __PACKAGE__->load_components(qw/PK::Auto Core/); | |
4 | __PACKAGE__->table('cd'); | |
5 | __PACKAGE__->add_columns(qw/ cdid artist title/); | |
6 | __PACKAGE__->set_primary_key('cdid'); | |
4bea5048 | 7 | __PACKAGE__->belongs_to('artist' => 'MyDatabase::Main::Result::Artist'); |
8 | __PACKAGE__->has_many('tracks' => 'MyDatabase::Main::Result::Track'); | |
0c337847 | 9 | |
10 | 1; |