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