The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package BookDB::Form::BookHTML;
use Moose;
extends 'HTML::FormHandler::Model::DBIC';


has '+item_class' => ( default => 'Book' );
has '+name' => ( default => 'book' );
has '+html_prefix' => ( default => 1 );

sub field_list {
     [
         title     => {
            type => 'Text',
            required => 1,
         },
         author    => 'Text',
         pages     => 'Integer',
         year      => 'Integer',
     ]
}

1;