use base 'My::Parent::Class';
sub new {
    my $pkg = shift;
    my $self = $pkg->SUPER::new(@_);
    return $self;
}