use base 'Class::DBI';

DataStore::DAO::Base->connection("dbi:$source:$dbname", $user, $password);

# I would like to add the method doing it the Class::DbI 
# way here.