HTML-Shakan

 view release on metacpan or  search on metacpan

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

    my $params = $self->form->params();
    for my $column (@{ $model->schema->schema_info->{$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);
}

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

    my ($self, $model, $name) = @_;
    my $row = {};
    my $params = $self->form->params();
    for my $column ($model->get_schema($name)->column_names) {
        next unless exists $params->{$column};
        $row->{$column} = $params->{$column};
    }
    $model->set($name => $row);
}

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

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

    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);
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan