/[Frey]/trunk/lib/Frey/Designer.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Designer.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 166 by dpavlin, Mon Aug 11 19:32:29 2008 UTC revision 174 by dpavlin, Sat Aug 16 13:03:44 2008 UTC
# Line 1  Line 1 
1  package Frey::Designer;  package Frey::Designer;
2    
3  use Moose;  use Moose;
4  use Moose::Util::TypeConstraints;  use Frey::Types;
5    #use MooseX::Types::URI qw(Uri FileUri DataUri);
 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( $_ ) };  
6    
7  has 'uri' => (  has 'uri' => (
8          is => 'rw',          is => 'rw',
9          isa => 'Uri',          isa => 'Uri', coerce => 1,
         coerce => 1,  
10          required => 1,          required => 1,
11  );  );
12    
Legend:
Removed from v.166  
changed lines
  Added in v.174
  ViewVC Help
Powered by ViewVC 1.1.26