我试图将对属性的 writer 方法的引用传递给另一个类方法。显然,自从执行 print 语句后就调用了 setter 方法。但是,会出现以下错误结果:
Attribute (dir) is required, so cannot be set to undef at Test.pm line 51
Test::_validateDir('Test=HASH(0x2270be0)', 'CODE(0x22a90f8)') called at test.pm line 37
Test::BUILD('test_moose=HASH(0x2270be0)', 'HASH(0x1879728)') called at generated method (unknown origin) line 50
Test:new('Test', dir=>'my_bin') called at ./test_moose.pl line 26
是否存在无法引用生成的编写器方法的原因,或者是否有不同或更好的方法在 Moose 中执行此操作?
代码如下:
package Test;
use Moose;
use File::Spec;
has 'dir' => (is => 'ro', isa => 'Str', required => 1, writer '_set_dir',);
sub BUILD {
my ($self, $hr) = @_;
$self->_validateDir(\&_set_dir);
}
sub _validate_dir {
my ($self, $setter) = @_;
my $dir = File::Spec->rel2abs($self->dir, '/home/me');
if (! -e $dir) {
print "creating directory\n";
#create directory
}
&$setter($dir);
}
最佳答案
将二传手作为常规替补来调用是否正确?您不应该将 $self
作为第一个参数传递吗?
关于调用属性的 writer 方法的引用时出现 Perl Moose 异常,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10557384/