###########################################
package CD;
###########################################
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

###########################################
package CD::Collection::DBI;
###########################################
use base q(Class::DBI);
CD::Collection::DBI->set_db('Main', 
                    'dbi:mysql:speicher', 
                    'root', '');

###########################################
package CD::Collection::Slot;
###########################################
use base q(CD::Collection::DBI);

CD::Collection::Slot->table('cds');
CD::Collection::Slot->columns(
    All => qw(id cddbid title 
              artist category));
CD::Collection::Slot->has_many('tracks', 
    'CD::Collection::Track' => 'cd', 
    { sort => 'track' });

###########################################
package CD::Collection::Track;
###########################################
use base q(CD::Collection::DBI);

CD::Collection::Track->table('tracks');
CD::Collection::Track->columns(
    All => qw(id cd track song)
);

1;