这就是难题。我使用 Moose::Role 作为接口(interface),其中具体类必须实现角色定义的所需属性构建器。该角色还定义了一些对属性进行逻辑处理的方法。这是我正在尝试做的事情的精简版。
package Parent;
use Moose::Role;
requires '_build_permission_level';
has 'permission_level' => (
is => 'ro',
isa => Int,
lazy_build => 1,
);
use constant {
LEVEL1 = 1,
LEVEL2 = 2,
LEVEL3 = 3,
};
sub can_do_action {
my $self = shift;
return $self->permission_level() >= LEVEL2;
}
package Child;
use Moose;
with 'Parent';
sub _build_permission_level { return Parent->LEVEL3; }
显然我有很多子类,具有不同的权限级别。现在这有效了,除了它非常低效。所有 Child 实例将始终具有相同的权限级别,但我必须实例化它只是为了询问它是否可以执行该操作。当批量运行 10,000 次时,你就会明白了。
因此,我想将 permission_level 设为类属性。以 Moose-y 方式解决效率问题。请注意 permission_level 如何不再需要 $self。
package Parent;
use Moose::Role;
use MooseX::ClassAttribute;
requires '_build_permission_level';
class_has 'permission_level' => (
is => 'ro',
isa => Int,
builder => '_build_permission_level',
);
use constant {
LEVEL1 = 1,
LEVEL2 = 2,
LEVEL3 = 3,
};
sub can_do_action {
return permission_level() >= LEVEL2;
}
package Child;
use Moose;
with 'Parent';
sub _build_permission_level { return Parent->LEVEL3; }
这死于未定义的子例程错误,找不到 Parent::permission_level。所以 parent 不知道 permission_level。真的吗?我很困惑它如何无法访问自己的类属性。我一定错过了一些非常简单的东西。但更根本的是,我应该如何让 Parent 为 Child 提供的类属性提供逻辑?
最佳答案
错误表明在编译时不存在子 Parent::permission_level
。这是真的:has
和 class_has
是运行时构造;编译 can_do_action
中的调用时,尚未创建 sub。
真正的问题是您使用了错误的语法来调用类方法。重写 can_do_action
如下:
sub can_do_action {
my ($class) = @_;
return $class->permission_level >= LEVEL2;
}
它应该可以正常工作。与普通函数调用不同,方法调用直到运行时才被解析,此时 Parent::permission_level
将存在。
关于perl - 在 Moose::Role 中访问 MooseX::ClassAttribute,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10730759/