Select Code to Download

    if ($method eq 'child_method') {
        print "Child->child_method\n";
...
        $method = "SUPER::$method";
        $self->$method(@_);
    }

package Child;
@ISA = qw(Parent);
...
__END__
Child->child_method
Parent->blah