裹脅在所有類型

Question

我有以下代碼複製好幾次，因爲我有一個遵循相同的模式

use MooseX::Types -declare [ qw(Item) ];jj 
my $itc = $prefix . 'Item'; 
class_type Item, { class => $itc }; 
coerce Item, from HashRef, via { load_class($itc)->new($_) }; 

幾類是有我進行重複數據刪除，創建了class_type和代碼的簡單方法強迫？這不是理解MooseX :: Types的問題，而是大量重複代碼的問題。這裏是a link to that code in its current state。它變得有點混亂，不是我引以爲豪的。

Answer 1

首先您的示例代碼在語法上不正確。

其次，我認爲你的問題（如果我的理解正確）在MooseX::Types文檔中直接回答。只要按照給出的例子：

package MyTypes; 

my @types = qw/Item1 Item2/; 

use MooseX::Types -declare => [ @types]; 

use MooseX::Types::Moose qw/Int HashRef/; 
use Moose::Util::TypeConstraints; 

use URI; 

foreach my $type (@types) { 

    class_type $type, { class => 'URI' }; 
    coerce $type, from 'Str', via { URI->new($_) }; 
} 

1; 

package Foo; 

use Moose; 

has test => (is => 'rw', isa => 'Item1', coerce => 1); 

1; 

package main; 

use v5.10; 
use strict; 
use warnings; 


my $t = Foo->new(test => 'http://test.com'); 
say $t->test;