$x = new GenObj;       # ref($x) eq 'GenObj::a'
$y = new GenObj -foo;  # ref($y) eq 'GenObj::b'
$x->get_foo;           # calls $x->GenObj::get_foo
$y->get_foo;           # calls $y->GenObj::b::get_foo