package URTAlternate::Person; use URTAlternate; use strict; use warnings; class URTAlternate::Person { table_name => 'person', id_by => [ person_id => { is => 'integer' }, ], has => [ name => { is => 'varchar' }, ], schema_name => 'TheDB', data_source => 'URTAlternate::DataSource::TheDB', }; sub uc_name { return uc(shift->name); } 1;