#!/usr/bin/perl package MyDB::Users; use base 'MyDB::DBI'; MyDB::Users->table('USERS'); MyDB::Users->columns( All => qw/USERNAME PASS USERTYPE EMAIL/); MyDB::Users->might_have( CANDIDATE => 'MyDB::Candidates' => qw/FIRSTNAME LASTNAME DISABLED CV/); MyDB::Users->might_have( CLIENT => 'MyDB::Clients' => qw/NAME MAXROLES MAXCOMPETENCIES/); 1;