package Foo::Bar;
sub s1 {}
sub s2 {} ...

package Foo::Bar::Subclass1;
use base Foo::Bar;
s1();
...

package Foo::Bar::Subclass2;
use base Foo::Bar;
s1();
s2();