view release on metacpan or  search on metacpan

examples/blog/lib/Blog/Controller/Posts.pm  view on Meta::CPAN

}

sub store ($self) {
  my $v = $self->_validation;
  return $self->render(action => 'create', post => {}) if $v->has_error;

  my $id = $self->posts->add({title => $v->param('title'), body => $v->param('body')});
  $self->redirect_to('show_post', id => $id);
}

sub update ($self) {
  my $v = $self->_validation;
  return $self->render(action => 'edit', post => {}) if $v->has_error;

  my $id = $self->param('id');
  $self->posts->save($id, {title => $v->param('title'), body => $v->param('body')});
  $self->redirect_to('show_post', id => $id);
}

sub _validation ($self) {
  my $v = $self->validation;