Select Code to Download

                MotherClass
                  /   \
                 /     \
                /       \
        ChildClass1   ChildClass2

package MotherClass::ChildClass1;

...
   my $self = $class->SUPER::new($args);
   ...
}

package MotherClass::ChildClass2;

...
...

sub object_method { MotherClass::ChildClass1::object_method(@_) }