#!/usr/bin/perl package MyDB::Candidates; use base 'MyDB::DBI'; use MyDB::Users; MyDB::Candidates->table('CANDIDATES'); MyDB::Candidates->columns( All => qw/USERNAME FIRSTNAME LASTNAME DISABLED/ ); MyDB::Candidates->is_a( USERNAME => 'MyDB::Users' ); 1;