Catalyst Maintainable web apps made easy! #132

GET

sub tasks_GET {
    my ($self, $c) = @_;
    my $tasks = $c->model('DBIC::Restricted::Tasks')->active;
    my @tasks;
    foreach my $task ($tasks->all) {
        push @tasks, task_entity($task);
    }
    $self->status_ok($c, entity => { tasks => [@tasks]});
}
Copyright © 2007 Jonathan Rockway