package Foo;
use BaseClass;
@ISA=qw(BaseClass);
Foo->define_attributes(
    attrib1 => 'NUM',
);

package Bar;
use Foo;
@ISA=qw(Foo);
Bar->define_attributes(
    attrib2 => 'NUM',
);