MooseX ::類型強制和$ self

Question

反正有$self變成MooseX::Types強制？我在對象中有其他數據，我想用它來將我的強制從String接種到Object。或者，有沒有什麼像Class::MOP的initializer，這將允許我這樣做 - 它必須在之前觸發類型檢查。

請求的僞代碼：

with 'DBHandle'; 
has 'database' => (isa => 'Str', is => 'ro', default => 'Db'); 
has 'schema' => (isa => 'Str', is => 'ro', default => 'schema'); 
has 'table' => (isa => 'Str', is => 'ro', default => 'column); 

has 'columns' => (isa => DBCols, is => 'ro', default => sub {[qw/foo bar baz/]}); 

在這裏，我想 「列」 要挾到DBCols - DBCol的（對象）的數組引用 - 需要使用catalog，schema和col屬性發現在課堂上，以及由DBHandle提供的dbh/singleton。

爲了減少這種僞現象，實際情況只會稍微複雜一些。我能夠完成以上around，現在我想我做的就是創建一個屬性特徵，將允許這句法：

has 'column_id' => (
    isa => Int 
    , is => 'ro' 
    , traits => ['DBKey'] 
    , default => 5 
    , column => 'foo' 
); 

凡DBKey提供的屬性特徵column，脅迫到DBCol以同樣的方式上述columns會：這將需要能夠訪問類database,schema,table，並再次爲dbh的單身人士。

Answer 1

不會，這會很好，但強制措施確實是全球性的，沒有人寫過「上下文敏感的強制」，因爲沒有人真的確定如何去做。 （實際上，s /強制/類型約束/ - 僅僅說「這個Str必須是一個有效的列名稱，定義爲該對象的一個​​條目的HashRef」）。

人們通常會解決這個問題問題around和/或BUILD和BUILDARGS的某種組合。