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

前端之家收集整理的这篇文章主要介绍了为什么这个anon子例程声明在Perl中被解析为间接对象方法?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
在以下匿名子例程声明中,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" ...

如果返回或我的$sub =添加在sub:lvalue {…之前,一切正常工作,它打印:

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

如果从子例程中删除:lvalue属性(但当然会更改功能),它也可以工作.

所以我的问题是为什么会发生这种情况?这是Perl中有关匿名子程序中的属性错误吗?是由于某种原因预期的行为吗?如果是错误,是否注册

解决方法

因为一个语句的开始是找到一个goto标签的有效位置,所以后面跟着一个冒号标记的bareword子句被解析为标签sub :,其后跟lvalue BLOCK,它被解析为间接对象语法.

如果强制解析器通过执行return sub:lvalue {…}或我的$foo = sub:lvalue {…}来查找术语,则会按预期解析.

猜你在找的Perl相关文章