package My::Class::SubClass;
require My::Class::Base;
@ISA= qw( My::Class::Base );

package My::Class::SubClass::_code;
# Import common non-methods:
My::Class::Base::_code->import( qw( _utilSub _timestamp ) );

# Export below methods to My::Class::SubClass:
for(  grep !/^_/, keys %{ __PACKAGE__ . "::" }  ) {
    *{"My::Class::SubClass::".$_}= \&$_
        if  defined &$_;
}

use strict;

sub new {
    my $us= shift @_;
    ...
    $us->someBaseMethod( @works );
    _utilSub( _timestamp() );
    ...
}