Foo T_PTROBJ
Bar T_PTROBJ
Baz T_PTROBJ

##</code><code>##

package Bar;
...
use base qw(Foo);
...