1package BookDB::Form::BookView; 2 3use HTML::FormHandler::Moose; 4extends 'HTML::FormHandler::Model::DBIC'; 5use DateTime; 6 7 8has '+item_class' => ( default => 'Book' ); 9 10has_field 'borrower' => ( type => 'Select' ); 11has_field 'borrowed'; 12 13 14# List for the "view" part of this form. These are not updated 15# Not a standard form method. Convenience function 16sub view_list { 17 my @fields = ('title', 'author', 'genre', 'publisher', 'isbn', 'format', 'pages', 'year'); 18 19 return wantarray ? @fields : \@fields; 20} 21 22sub init_value_borrowed 23{ 24 my ($self, $field) = @_; 25 return DateTime->now( time_zone => 'local')->ymd; 26} 27 281; 29