我怎样才能在Perl中修补实例方法？

#!/usr/bin/perl

use strict;
use warnings;

# 引入Moose库
use Moose;

# 定义一个类
class MyClass {
    has 'name' => (is => 'rw', isa => 'Str');

    # 定义一个实例方法
    sub display_name {
        my $self = shift;
        print "My name is: " . $self->name . "\n";
    }
}

# 使用around修饰符修补实例方法
around display_name => sub {
    my $orig = shift;
    my $self = shift;
    $self->$orig;
    print "I am using Moose to patch the instance method!\n";
};

# 创建一个对象
my $object = MyClass->new(name => 'John Doe');

# 调用实例方法
$object->display_name();

My name is: John Doe
I am using Moose to patch the instance method!