# parent

sub new {
    return bless {}, shift;
}
sub wordpress {
    my ($self, %params) = @_;
    return My::Dist::Wordpress->new(..., %params);
}

# user code

my $parent = My::Dist->new;

my $wordpress_obj = $parent->wordpress(%params);

##</code><code>##

my $wp_obj = My::Dist::Wordpress->new(...);