Eu sei que a pergunta foi para o Catalyst, mas não custa mostrar como
se faz em outros frameworks...
#!/usr/bin/perl
use Mojolicious::Lite;
use MyApp::Schema;
my $schema = MyApp::Schema->connect($dbi_dsn, $user, $pass, \%dbi_params);
get '/users' => sub {
my $self = shift;
my @all = $schema->resultset('Users')->all;
$self->render( json => \@all );
};
get '/user/:id' => sub {
my $self = shift;
my $id = $self->param('id');
my $user = $schema->resultset('Users')->find($id);
$self->render( json => $user );
};
app->start();
__END__
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
