Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

package BookDB::Form::Borrower;
use strict;
use warnings;
use base 'HTML::FormHandler::Model::DBIC';
=head1 NAME
Form object for Borrower
=head1 DESCRIPTION
Catalyst Controller.
=cut
has '+item_class' => ( default => 'Borrower' );
sub field_list {
return {
auto_required => ['name', 'email'],
auto_optional => ['phone', 'url'],
};
}
=head1 AUTHOR
Gerda Shank
=head1 LICENSE AND COPYRIGHT
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
=cut
1;