小编Dav*_* W.的帖子

OO-Perl别名类属性

我有一个我正在研究的模块.我正在设置一些这样的属性:

$self->{FOO};
$self->{BAR};
$self->{FOOBAR};
Run Code Online (Sandbox Code Playgroud)

而且,我想使用AUTOLOAD来帮助创建访问这些属性的方法.例如,$foo->Bar()返回值$self->{BAR}.没问题.一切都是标准的.

现在,我想创建别名方法.例如,如果有人说$obj->Fu();,我会回来$self->{FOO}.我想做的是创建一个$self->{FU}指向相同内存位置的内容$self->{FOO}.这样,当我设置值时$self->{FOO},$self-{FU}也会设置.这样,我不必对AUTOLOAD的工作方式进行各种更改,也不必在设置$self->{FU}时记住设置$self->{FOO}.

这样做有简单的方法吗?

perl alias-method

2
推荐指数
1
解决办法
950
查看次数

标签 统计

alias-method ×1

perl ×1