gistfile1.pl

package Joe::Registration::Form;                                              

use HTML::FormHandler::Moose;                                                 
extends 'HTML::FormHandler';                                                  

has '+item_class' => ( default => 'Registration' );                           

has_field username => (
  type => 'Username',                                                         
  label => 'Username',                                                        
  required => 1,
); 
                                                                              
has_field email => (                                                          
  type => 'Email',
  label => 'Email Address',                                                   
  required => 1,                                                              
);                                                                            
                                                                              
has_field password => (                                                       
  type => 'Password',                                                         
  label => 'Password',
  required => 1,
);  
    
subtype 'Username'                                                            
  => as 'Str'                                                                 
  => where {$_ =~ /[\d\w]{1,16}/}                                             
  => message { "Can only contain letters and numbers" };                      
  
no HTML::FormHandler::Moose;