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	dpavlin	174	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;