use GenObj;
my $normal   = new GenObj;
my $diffage  = new GenObj -age;
my $diffname = new GenObj -name;
my $diffboth = new GenObj -age, -name;

$normal->set_age(10);  # GenObj::set_age
$normal->get_name;     # GenObj::get_name

$diffage->set_age(10);  # GenObj::Sub::set_age
$diffage->get_name;     # GenObj::get_name

$diffname->set_age(10);  # GenObj::set_age
$diffname->get_name;     # GenObj::Sub::get_name

$diffboth->set_age(10);  # GenObj::Sub::set_age
$diffboth->get_name;     # GenObj::Sub::get_name