Catalyst Maintainable web apps made easy! #131

POST

sub tasks_POST {
    my ($self, $c) = @_;
    my $data = $c->req->data;

    if (my $task_def = $data->{raw_task}) {
        my $task = eval {
            $c->user->add_task($task_def);
        };
        if (!$@) {
            $self->status_ok($c, entity => task_entity($task));
            $c->detach;
        }
    }
    $self->status_bad_request($c, message => 'Failed');
}
Copyright © 2007 Jonathan Rockway