$o->bar( 99 );
is $o->bar, 99, "can set and get value of Bar's secret";

is $o->foo, 99, "secrets of subclasses are shared";