## Main class
package My::DBI;
use base 'Class::DBI';
my $dsn = "dbi:mysql:***";
my $user = "****";
my $passwd = "****";
__PACKAGE__->set_db('Main', $dsn, $user, $passwd);
## Second class
package My::Tables;
use base 'My::DBI';
__PACKAGE__->columns( Primary => qw[id] );
__PACKAGE__->columns( All =>
qw [ id author
title date
content ip ] );
__PACKAGE__->table('entries');
####
Music::CD->add_constructor(new_music => 'year > ?');
my @recent = Music::CD->new_music(2000);
##
##
my @cds = Music::CD->retrieve_from_sql(qq{
artist = 'Ozzy Osbourne' AND
title like "%Crazy" AND
year <= 1986
ORDER BY year
LIMIT 2,3
});
##
##
my @music = Music::CD->search_where(
artist => [ 'Ozzy', 'Kelly' ],
status => { '!=', 'outdated' },
);