Select Code to Download

# MyClass.pm
package MyClass;
...
}

1;

# SubClass.pm
package SubClass;
...
extends 'MyClass';

1;

$ perl -MMyClass -e 0
Subroutine get_subclass_object redefined at MyClass.pm line 5.

$