## 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');

##</code><code>##

Music::CD->add_constructor(new_music => 'year > ?');
	my @recent = Music::CD->new_music(2000);

##</code><code>##

my @cds = Music::CD->retrieve_from_sql(qq{
		artist = 'Ozzy Osbourne' AND
		title like "%Crazy"      AND
		year <= 1986
		ORDER BY year
		LIMIT 2,3
	});

##</code><code>##

my @music = Music::CD->search_where(
		artist => [ 'Ozzy', 'Kelly' ],
		status => { '!=', 'outdated' },
	);