[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