Look into Class::Trait, it's designed to solve some of these problems.

As for the subcall, you can do it a bit more "oopishly":

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

which might be less confusing to read, since it looks like a method call, and not a function call.

If you want to get the same effect as exporting, without Exporter:

*object_method = \&MotherClass::ChildClass1::object_method;
[download]