| Test-DBIx-Class documentation | Contained in the Test-DBIx-Class distribution. |
Test::DBIx::Class::Example::Schema::Result::CD - A cd
A cd has tracks and has artists
The following modules or resources may be of interest.
John Napiorkowski <jjnapiork@cpan.org>
Copyright 2009, John Napiorkowski <jjnapiork@cpan.org>
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Test-DBIx-Class documentation | Contained in the Test-DBIx-Class distribution. |
package Test::DBIx::Class::Example::Schema::Result::CD; { use base 'Test::DBIx::Class::Example::Schema::Result'; __PACKAGE__->table('cd'); __PACKAGE__->add_columns( cd_id => { data_type => 'varchar', size => '36', is_nullable => 0, }, name => { data_type => 'varchar', size => '24', is_nullable => 0, }, created => { data_type => 'timestamp', set_on_create => 1, is_nullable => 0, }, ); __PACKAGE__->set_primary_key('cd_id'); __PACKAGE__->uuid_columns('cd_id'); __PACKAGE__->has_many( cd_artist_rs => 'Test::DBIx::Class::Example::Schema::Result::CD::Artist', { 'foreign.fk_cd_id' => 'self.cd_id'} ); __PACKAGE__->has_many( track_rs => 'Test::DBIx::Class::Example::Schema::Result::CD::Track', { 'foreign.fk_cd_id' => 'self.cd_id'}, { 'order_by' => {-asc=>'me.position'} }, ); __PACKAGE__->many_to_many( artists => 'cd_artist_rs', 'person_artist', ); } 1 __END__