perl – 初始化Moose类的CodeRef字段

package Person;

  use Moose;

  has 'first_name' => (
      is  => 'rw',isa => 'Str',);

  has 'last_name' => (
      is  => 'rw',);

  has 'check' => (
      is => 'rw',isa => 'CodeRef',);

  no Moose;
  __PACKAGE__->meta->make_immutable;

我正在另一个文件中初始化一个新的Person对象

use Person;

my $user = Person->new(
    first_name => 'Example',last_name  => 'User',check => sub {
        print "yo yon";
    },); 

print "heren";
$user->check();
print "heren";

这两个调试语句正在打印,但子例程中的调试消息不是.

我想知道将函数传递给构造函数的正确方法,以便我可以将匿名子例程传递给对象.