2

我正在尝试将对属性的编写器方法的引用传递给另一个类方法。自执行 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

是否有原因无法引用生成的 writer 方法，或者在 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);
}
4

2 回答 2

2

将 setter 称为常规 sub 是否正确？你不应该$self作为第一个参数传递吗？

于 2012-05-11T19:43:37.327 回答
1

在 Perl 中，对方法的引用不包括关联的对象。调用引用时，必须提供对象（或类，如果它是类方法）作为第一个参数。

&$setter($self, $dir);

或者，（等效于何时$setter是代码引用但更惯用）：

$self->$setter($dir);

你得到“属性（dir）是必需的，所以不能设置为undef”的原因是Perl认为这$dir是对象并且缺少值（因此undef），并且它显然在它注意到$dir不是之前进行了检查一个东西。

于 2012-05-11T22:36:02.033 回答