#!/usr/bin/perl
use Class::DBI;

package MyPackageO2M;
use base ('Class::DBI');
FsDBI->set_db('Main', 'DBI:mysql:databasename', 'user', 'password');

package MyPackage::Tester;
use base ('MyPackageO2M');
MyPackage::Tester->table('user');
MyPackage::Tester->columns(Essential => qw(id role_id name lastname));

# see the difference: the method name (ihavesomuchroles) can be completely different to the database-table.
# which means in a 1:m situation, even the Classes can have different names than the originating database-tables.
# (MyPackage::user VS MyPackage::Tester)

MyPackage::Tester ->has_many (ihavesomuchroles => 'MyPackage::role','id');
#  the 'id' argument to 'ihavesomuchroles' is the destination field for MyPackage::role

package MyPackage::role;
use base ('MyPackage');
MyPackage::role->table('role');
MyPackage::role->columns(Essential => qw(id role_title));