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( $_ ) }
;

type 'Sponge'
        => where {
                defined $_->{rows} || die "no rows in sponge";
                defined $_->{NAME} || die "no NAME in sponge";
        }
;

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
11	coerce 'Uri'
12	=> from 'Object'
13	=> via { $_->isa('URI')
14	? $_
15	: Params::Coerce::coerce( 'URI', $_ ) }
16	=> from 'Str'
17	=> via { URI->new( $_ ) }
18	;
19
20	type 'Sponge'
21	=> where {
22	defined $_->{rows} \|\| die "no rows in sponge";
23	defined $_->{NAME} \|\| die "no NAME in sponge";
24	}
25	;
26
27	1;