MooseX :: Types宣言の問題、厳しいテストケース:)

Question

恥ずかしいほどの時間をデバッグした後、私はついに、this issueを単純なテストケースに切り捨てました。私は、なぜそれが失敗しているのかを理解する助けを謙虚に要請するでしょう。 :)ここで私が得ているエラーメッセージです：

plxc16479> $h2/tmp/tmp18.pl 
This method [new] requires a single argument. at /nfs/pdx/disks/nehalem.pde.077/perl/5.12.2/lib64/site_perl/MooseX/Types/TypeDecorator.pm line 91 

MooseX::Types::TypeDecorator::new('MooseX::Types::TypeDecorator=HASH(0x655b90)') called at /nfs/pdx/disks/nehalem.pde.077/projects/lib/Program-Plist-Pl/lib/Program/Plist/Pl.pm line 10 

Program::Plist::Pl::BUILD('Program::Plist::Pl=HASH(0x63d478)', 'HASH(0x63d220)') called at generated method (unknown origin) line 29 

Program::Plist::Pl::new('Program::Plist::Pl') called at /nfs/pdx/disks/nehalem.pde.077/tmp/tmp18.pl line 10 

ラッパーのテストスクリプト：

use strict; 
use warnings; 

BEGIN {push(@INC, split(':', $ENV{PERL_TEST_LIBS}))}; 

use Program::Plist::Pl; 

my $obj = Program::Plist::Pl->new(); 

プログラム:: PLIST :: P1のファイル：

package Program::Plist::Pl; 

use Moose; 
use namespace::autoclean; 

use Program::Types qw(Pattern); # <-- Removing this fixes error 
use Program::Plist::Pl::Pattern; 

sub BUILD { 
    my $pattern_obj = Program::Plist::Pl::Pattern->new(); 
} 

__PACKAGE__->meta->make_immutable; 

1; 

プログラム::タイプファイル：

package Program::Types; 

use MooseX::Types -declare => [qw(Pattern)]; 

class_type Pattern, {class => 'Program::Plist::Pl::Pattern'}; 

1; 

さらに、プログラム:: Plist :: Pl :: Patte RNファイル：

package Program::Plist::Pl::Pattern; 

use Moose; 
use namespace::autoclean; 

__PACKAGE__->meta->make_immutable; 

1; 

注：私は上記のコードでProgram::TypesからPatternタイプを必要としませんが、私は取り除かれ、他のコードで行います。私がINCパスを引っ張っているPERL_TEST_LIBSのenv varには、プロジェクトモジュールへのパスしか含まれていません。これらのパスからロードされる他のモジュールはありません。

PatternのMooseX::Typesの定義は問題を引き起こしているようですが、その理由はわかりません。ドキュメントは私が使用している構文を示していますが、それについてはあまり言及されていないので、私はclass_typeを誤用している可能性があります。意図はMooseX::Params::ValidateによってPatternをタイプチェックに使用して、引数がProgram::Plist::Pl::Programオブジェクトであることを確認することです。

私はProgram::TypesPatternタイプがインポートされた場合でも、直接、エラーなしでtmp18.plラッパー結果からPattern->newを呼び出すことにより、式から介在クラスProgram::Plist::Plを削除することを発見しました。

Answer 1

あなたは

package Program::Plist::Pl; 
... 
use Program::Types qw(Pattern); 

を言うとき、あなたがパッケージProgram::Plist::PlにPatternという名前のサブルーチンをインポートしています。完全修飾名はProgram::Plist::Pl::Patternです。したがって、

Program::Plist::Pl::Pattern->new(); 

は

Program::Plist::Pl::Pattern()->new(); 

の代わりに、あなたは何を意味するのかである

'Program::Plist::Pl::Pattern'->new(); 

として解析します。あなたが望むならそれを明示的な引用符で書くことができます（そしてうまくいきます）が、それは厄介な特別なケースです。もう1つの解決策は、パッケージ名と矛盾しないように型の名前を変更することです（たとえばPatternObj）。

namespace::autocleanこれは役に立ちません。これは、人々がメソッドとしてインポートされたサブを呼び出すのを防ぎます。しかし、Program::Plist::Pl::Pattern()を直接呼び出してから、その戻り値でメソッドを呼び出しています。