The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

HTML::Shakan::Model::DataModel - Data::Model bindings for Shakan

SYNOPSIS

# in edit form
my $form = HTML::Shakan->new(
    model => 'DataModel'
);
my $row = $dm->lookup('any_table', 1);
if ($form->submitted_and_valid) {
    $form->model->update( $row );
    redirect('/to/anywhere');
} else {
    $form->model->fill( $row );
    render_template({form => $form, row => $row});
}

# add form
my $form = HTML::Shakan->new(
    model => 'DataModel'
);
if ($form->submitted_and_valid) {
    $form->model->create( $model, 'user' );
    redirect('/to/anywhere');
} else {
    $form->model->fill( $row );
    render_template({form => $form, row => $row});
}

DESCRIPTION

wrapper class for Data::Model & HTML::Shakan

METHODS

$form->model->fill($row)

fill this row to form

$form->model->create($model => $name);

insert new row.

$form->model->update($row);

update this row

SEE ALSO

Data::Model