Question

在下面的匿名子例程声明中，Perl似乎将其解析为间接方法调用，而不是作为子例程：

use 5.010;
use strict;
use warnings;

sub proxy {
    my $new = shift;
    say "creating proxy: $new";
    sub :lvalue {
        say "running proxy: $new";
        tie my $ret, 'Some::Package', shift, $new;
        $ret
    }
}

say "before";
my $p1 = proxy '_value';
say "p1 declared: $p1";
my $p2 = proxy 'value';
say "p2 declared: $p2";

打印：

before
creating proxy: _value
running proxy: _value
Can't locate object method "TIESCALAR" via package "Some::Package" ...

如果在return之前添加my $sub =或sub :lvalue {...，那么一切正常，并打印出来：

before
creating proxy: _value
p1 declared: CODE(0x4c7e6c)
creating proxy: value
p2 declared: CODE(0x1ea85e4)

如果从子例程中删除:lvalue属性（但当然会改变功能），它也有效。

所以我的问题是为什么会发生这种情况？这是Perl中与匿名子例程上的属性相关的错误吗？是出于某种原因预期的行为吗？如果它是一个bug，它是否已注册？

Answer 1

因为语句的开头是查找goto标签的有效位置，所以将后跟冒号标记的“sub”解析为标签sub:，这是后跟lvalue BLOCK，它被解析为间接对象语法。

如果您通过执行return sub : lvalue { ... }或my $foo = sub : lvalue { ... }强制解析器查找术语，则会按预期进行解析。

为什么这个anon子例程声明在Perl中被解析为间接对象方法？

1 个答案: