package Music::DBI;
   use base 'Class::DBI';
   Music::DBI->set_db('Main', 'dbi:mysql', 'username', 'password');

   package Artist;
   use base 'Music::DBI';
   Artist->table('artist');
   Artist->columns(All => qw/artistid name/);
   Artist->has_many('cds', 'CD' => artist);

# ...

   my $artist = Artist->retrieve($id);