静态本地调度表,在闭包内调用OO

Question

我有一个调度表,我希望只初始化一次,并且只打算由一个函数使用.我希望将子程序之外的调度表移动到同一个匿名块中,但由于调度表使用闭包来调用传递给函数的对象的方法,因此在函数外部移动表会将其与访问对象分开.我对此调度表还有哪些其他选择？

我正在使用Perl 5.8,所以不幸的是我无法使用state变量.

sub foo {
  my ($self, $var) = @_;

  my %funcs = (
    a => sub { $self->_a() },
    b => sub { $self->_b() },
    ...
  );

  return $funcs{$var}->();
}

Answer 1

调度表中的函数是闭包$self.如果你传入$self参数,你就可以解决这个问题.请注意,state变量不是真正的闭包$self,并且还需要显式参数.

my %funcs = (
  a => sub { shift->_a },  # these are like anonymous methods
  b => sub { shift->_b },
);

sub foo {
  my ($self, $var) = @_;
  my $meth = $funcs{$var} || die "There is no entry $var";
  return $self->$meth();   # sugary syntax
}

这是一个为什么state是一个坏主意的演示:

use 5.010;
package Foo;
sub new { my ($c, $v) = @_; bless \$v, $c }

sub foo {
  my ($self) = @_;
  state $cb = sub { say $$self };
  $cb->();
}

Foo->new($_)->foo for 1..3;

输出:

1
1
1

内部子是一个闭包,但初始化$cb只执行一次.因此,封闭$self是第一个.