Commit | Line | Data |
---|---|---|
0c337847 | 1 | package MyDatabase::Main::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::Cd'); | |
8 | ||
9 | 1; | |
10 |