--- trunk/lib/Frey/Designer.pm 2008/08/11 19:32:29 166 +++ trunk/lib/Frey/Designer.pm 2008/08/16 13:03:44 174 @@ -1,26 +1,12 @@ package Frey::Designer; use Moose; -use Moose::Util::TypeConstraints; - -use URI (); - -subtype 'Uri' - => as 'Object' - => where { $_->isa('URI') }; - -coerce 'Uri' - => from 'Object' - => via { $_->isa('URI') - ? $_ - : Params::Coerce::coerce( 'URI', $_ ) } - => from 'Str' - => via { URI->new( $_ ) }; +use Frey::Types; +#use MooseX::Types::URI qw(Uri FileUri DataUri); has 'uri' => ( is => 'rw', - isa => 'Uri', - coerce => 1, + isa => 'Uri', coerce => 1, required => 1, );