1package BookDB::Form::Borrower; 2 3use HTML::FormHandler::Moose; 4extends 'HTML::FormHandler::Model::DBIC'; 5 6=head1 NAME 7 8Form object for Borrower 9 10=head1 DESCRIPTION 11 12Catalyst Controller. 13 14=cut 15 16 17has '+item_class' => ( default => 'Borrower' ); 18 19__PACKAGE__->meta->make_immutable; 20 21has_field 'name' => ( 22 type => 'Text', 23 required => 1, 24 order => 1, 25 label => "Name", 26 unique => 1, 27 unique_message => 'That name is already in our user directory', 28); 29has_field 'email' => ( 30 type => 'Email', 31 required => 1, 32 order => 4, 33 label => "Email", 34 ); 35has_field 'phone' => ( 36 type => 'Text', 37 order => 2, 38 label => "Telephone", 39 ); 40has_field 'url' => ( 41 type => 'Text', 42 order => 3, 43 label => 'URL', 44 ); 45has_field 'active' => ( type => 'Boolean', label => "Active?" ); 46 47has_field 'submit' => ( type => 'Submit', value => 'Save' ); 48 49=head1 AUTHOR 50 51Gerda Shank 52 53=head1 LICENSE AND COPYRIGHT 54 55This module is free software; you can redistribute it and/or 56modify it under the same terms as Perl itself. See L<perlartistic>. 57 58=cut 59 60__PACKAGE__->meta->make_immutable; 61no HTML::FormHandler::Moose; 621; 63