perl - 在 Moose::Role 中访问 MooseX::ClassAttribute

Question

这就是难题。我使用 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 提供的类属性提供逻辑？

Answer 1

错误表明在编译时不存在子 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 将存在。