如何重新定义Perl类方法？

# 假设我们有一个名为"MyClass"的类，其中有一个名为"print_message"的方法
# 我们现在要重新定义这个方法

# 原始的print_message方法
sub MyClass::print_message {
    my ($self, $message) = @_;
    print "Original message: $message\n";
}

# 重新定义print_message方法
sub MyClass::print_message {
    my ($self, $message) = @_;
    print "New message: $message\n";
}

# 创建一个MyClass对象
my $obj = MyClass->new();

# 调用print_message方法，将输出"New message: Hello, world!"
$obj->print_message("Hello, world!");