[SP-pm] DB para JSON
Nelson Ferraz
nferraz at gmail.com
Sun Aug 19 17:08:29 PDT 2012
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__
More information about the SaoPaulo-pm
mailing list