属性のライターメソッドへの参照を呼び出すときのPerlムース例外

Question

属性のライターメソッドへの参照を別のクラスメソッドに渡そうとしています。 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 

生成ライター・メソッドへの参照を取ることができないか、ムースでこれを行うために異なるか良い方法がある理由はありますか？ここで

はコードです：

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); 
} 

Answer 1

はそれが右の定期的なサブとしてのセッターを呼び出すことですか？最初の引数として$selfを渡すべきではありませんか？

Answer 2

Perlでは、メソッドへの参照は、ではありません。には、関連オブジェクトが含まれています。参照を呼び出すときは、オブジェクト（またはクラスメソッドの場合はクラス）を最初のパラメータとして指定する必要があります。

&$setter($self, $dir); 

あるいは、（$setterはコードの参照が、より慣用的であると等価）：

$self->$setter($dir); 

あなたが得る理由「属性（DIR）が必要ですので、undefをに設定することはできませんが」ということですPerlは、$dirがオブジェクトであり、値が見つからないと考えて（したがってundef）、それは明らかにそのチェックが行われてから、$dirがオブジェクトではないことに気づきます。