8

我的课堂上有以下代码:


sub new {
    my $class = shift;
    my %args  = @_;
    my $self  = {};
    bless( $self, $class );
    if ( exists $args{callback} ) {
        $self->{callback} = $args{callback};
    }
    if ( exists $args{dir} ) {
        $self->{dir} = $args{dir};
    }
    return $self;
}

sub test {
  my $self = shift;
  my $arg  = shift;
  &$self->{callback}($arg);
}

和一个包含以下代码的脚本:


use strict;
use warnings;
use MyPackage;

my $callback = sub {
   my $arg = shift;
   print $arg;
};

my $obj = MyPackage->new(callback => $callback);

但我收到以下错误:

Not a CODE reference ...

我错过了什么?印刷ref($self->{callback})展示CODE。如果我使用它可以工作$self->{callback}->($arg),但我想使用另一种调用代码参考的方式。

4

1 回答 1

18

$self& 号仅对而不是整个事物具有约束力。您可以在返回参考的部分周围做卷曲:

&{$self->{callback}}($arg);

但是

$self->{callback}->($arg);

一般认为比较干净,为什么不想用呢?

于 2009-02-12T23:12:19.053 回答