On Tue, Jul 23, 2013 at 3:47 AM, Nelson Ferraz <[email protected]> wrote:
> Tudo isso pra setar um cookie?
>
> Sem querer iniciar uma flamewar, mas com o Mojolicious::Lite e' bem
> simples:
>
> #####
>
> use Mojolicious::Lite;
>
> get '/login' => sub {
> my $self = shift;
>
> # Query parameters
> my $user = $self->param('user') || '';
> my $pass = $self->param('pass') || '';
>
> # Store username in session
> $self->session(user => $user);
>
> } => 'index';
>
É exatamente a mesma coisa no Catalyst se você usar o
Catalyst::Plugin::Session:
use Catalyst qw/Session/;
sub login :Path {
my($self, $c) = @_;
my $user = $c->req->param('user');
my $pass = $c->req->param('pass');
$c->session(user => $user);
}
O CatalystX::AuthenCookie é apenas uma implementação alternativa que existe
porque TIMTOWTDI.
=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
