Catalyst Maintainable web apps made easy! #130

DELETE

sub tasks_DELETE {
    my ($self, $c) = @_;
    my $id :Stashed;

    my $task = $c->model('DBIC::Restricted::Tasks')->find($id);
    $self->update_entity($c, $task,
                         sub { $task->delete }, sub { {result => 'ok'} });
}
Copyright © 2007 Jonathan Rockway