Select Code to Download

    my $self = __PACKAGE__;
    $self = shift if UNIVERSAL::isa ($_[0], __PACKAGE__);

Child->test();

package Parent;
...

package Child;
use base Parent;