lib/Frey/Types.pm

package Frey::Types;
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( $_ ) };

1;
1	package Frey::Types;
2	use Moose::Util::TypeConstraints;
3
4	use URI ();
5
6	subtype 'Uri'
7	=> as 'Object'
8	=> where { $_->isa('URI') };
9
10	coerce 'Uri'
11	=> from 'Object'
12	=> via { $_->isa('URI')
13	? $_
14	: Params::Coerce::coerce( 'URI', $_ ) }
15	=> from 'Str'
16	=> via { URI->new( $_ ) };
17
18	1;