package BookDB::Form::BookView;
use Moose;
extends 'HTML::FormHandler::Model::DBIC';
use DateTime;
has '+item_class' => ( default => 'Book' );
sub field_list {
   return  {
      required => {
        borrower   => 'Select',
             borrowed   => 'Text',
      },
   };
}       
# List for the "view" part of this form. These are not updated 
# Not a standard form method. Convenience function
sub view_list {
        my @fields = ('title', 'author', 'genre', 'publisher', 'isbn', 'format', 'pages', 'year');
         
    return wantarray ? @fields : \@fields;
}
sub init_value_borrowed
{
    my ($self, $field) = @_;
    return DateTime->now( time_zone => 'local')->ymd;
}
1;