package PersonData; @ISA = qw(XPlanner::Person); package XPlanner::Person; use strict; use base qw(XPlanner::Object); 1;