闭包中带有OO调用的静态本地调度表

Question

我有一个调度表，希望只初始化一次，并且只打算由一个函数使用。我本来希望将调度表移出子例程，并移动到同一个匿名块中，但由于调度表使用闭包来调用传递给函数的对象的方法，因此将表移到函数之外将其与对象的访问隔离开来。对于这个调度表，我还有其他选择吗？

我使用的是Perl5.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上的闭包是第一个。