view release on metacpan or  search on metacpan

lib/HTML/Shakan/Model/Teng.pm  view on Meta::CPAN

package HTML::Shakan::Model::Teng;
use strict;
use warnings;
use Mouse;
with 'HTML::Shakan::Role::Model';

sub fill {
    my ($self, $row) = @_;
    my $columns = $row->get_columns;
    while (my ($k, $v) = each %$columns) {
        $self->form->fillin_params->{$k} = $v;
    }
}

sub create {
    my ($self, $model, $name) = @_;
    my $row = {};
    my $params = $self->form->params();
    for my $column (@{ $model->schema->get_table($name)->columns() }) {
        next unless exists $params->{$column};
        $row->{$column} = $params->{$column};
    }
    $model->insert($name => $row);
}

sub insert { shift->create(@_) }

sub update {
    my ($self, $row) = @_;
    my $dat = {};
    my $columns = $row->get_columns;
    my $params = $self->form->params();
    for my $column (keys %$columns) {
        next unless exists $params->{$column};
        $dat->{$column} = $params->{$column};
    }
    $row->update($dat);
}

no Mouse;
__PACKAGE__->meta->make_immutable;
__END__

=head1 NAME

HTML::Shakan::Model::Teng - Teng binding for HTML::Shakan

=head1 SYNOPSIS

    # create form object
    my $form = HTML::Shakan->new(
        request => CGI->new(),
        fields => [
            TextField(
                name => 'foo',
            ),
        ],
        model => HTML::Shakan::Model::Teng->new()
    );

    # fillin_form
    $form->model->fill($row);

    # insert
    $form->model->create($teng => $table);

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

=head1 DESCRIPTION

This is L<Teng> binding for L<HTML::Shakan>.You can easy to
insert/fill/update by L<HTML::Shakan>.

=head1 METHODS

=over 4

=item C<< $form->model->fill($row); >>

fill the $row data to form.$row is instance of row class of Teng.

=item C<< my $row = $form->model->create($teng, $table); >>

insert form data to $table.

=item C<< my $row = $form->model->insert($teng, $table); >>