sub object_method {
    my $self = shift;
    $self->MotherClass::ChildClass1::object_method(@_);
}

##</code><code>##

*object_method = \&MotherClass::ChildClass1::object_method;