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

use HTML::FormHandler::Moose;
extends 'HTML::FormHandler::Model::DBIC';
use DateTime;


has '+item_class' => ( default => 'Book' );

has_field 'borrower' => ( type => 'Select' );
has_field 'borrowed';


# 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;