<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Tue, Jul 23, 2013 at 3:47 AM, Nelson Ferraz <span dir="ltr"><<a href="mailto:nferraz@gmail.com" target="_blank">nferraz@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Tudo isso pra setar um cookie? <div><br></div><div>Sem querer iniciar uma flamewar, mas com o Mojolicious::Lite e' bem simples:<div>
<br></div><div>#####</div><div><br></div><div>use Mojolicious::Lite;</div>
<div><br></div><div><div>get '/login' => sub {<br></div><div>    my $self = shift;</div><div><br></div><div>    # Query parameters</div><div>    my $user = $self->param('user') || '';</div><div>

    my $pass = $self->param('pass') || '';</div><div><br></div><div><div>    # Store username in session</div><div>    $self->session(user => $user);</div></div><div><br></div><div>} => 'index';</div>
</div></div></div></blockquote><div><br>É exatamente a mesma coisa no Catalyst se você usar o Catalyst::Plugin::Session:<br><br>use Catalyst qw/Session/;<br><br>sub login :Path {<br>  my($self, $c) = @_;<br><br>  my $user = $c->req->param('user');<br>
  my $pass = $c->req->param('pass');<br>  <br>  $c->session(user => $user);<br>}<br><br>O CatalystX::AuthenCookie é apenas uma implementação alternativa que existe porque TIMTOWTDI.</div></div></div></div>