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

__PACKAGE__->has_a(wild_and_crazy_role => 'MyPackage::Role');

sub accessor_name {
    my ($class, $column) = @_;
    $column =~ s/role_id/wild_and_crazy_role/;
    return $column;
}