view release on metacpan or  search on metacpan

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

  my $self = shift;

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

  my $id = $self->posts->add($validation->output);
  $self->redirect_to('show_post', id => $id);
}

sub update {
  my $self = shift;

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

  my $id = $self->param('id');
  $self->posts->save($id, $validation->output);
  $self->redirect_to('show_post', id => $id);
}