The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyDBIC::Main::Track;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/ RDBOHelpers Core /);
__PACKAGE__->table('track');
__PACKAGE__->add_columns(qw/ trackid title /);
__PACKAGE__->set_primary_key('trackid');
__PACKAGE__->has_many(
    'track_cds' => 'MyDBIC::Main::CdTrackJoin',
    'trackid'
);
__PACKAGE__->many_to_many(
    'cds' => 'track_cds',
    'cdid'
);

sub schema_class_prefix {'MyDBIC::Main'}

1;