perl - MooseX::Declare 如何从属性默认方法返回 ArrayRef？

Question

我意识到这可能是我对 perl 或 Moose 某些部分的基本误解，但我似乎无法从 default 返回 ArrayRef方法:

has '_directories' => (
    is => 'ro', 
    isa => 'ArrayRef[Str]', 
    lazy => 1, 
    init_arg => undef, 
    default => method {return File::Spec->splitdir($self->relativeDirectory)});

给出:

Attribute (_directories) does not pass the type constraint because: 
Validation failed for 'ArrayRef[Str]' with value 3

我该如何解决这个问题？

Answer 1

splitdir 返回列表，而不是数组引用。您可以使用 [] 从列表中构造 arrayref构造函数:

default => method {return [ File::Spec->splitdir($self->relativeDirectory) ] },