{   package MySubClass;
    use base qw( SomeHashBasedClass );
    use Class::InsideOut qw(:std);
    
    sub new {
        my $class = shift;
        my $self = $class->SUPER::new( @_ );
        return register( $self );
    }
};