The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package BookDB::Form::Borrower;

use strict;
use warnings;
use base 'Form::Processor::Model::DBIC';


=head1 NAME

Form object for Borrower 

=head1 DESCRIPTION

Catalyst Controller.

=cut


sub object_class { 'DB::Borrower' } 


sub profile {
	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;