Hernan Lopes
para validar:sub end :Private { my ( $self, $c ) = @_;
if(!$c->user_exists){ $c->res->redirect('/login'); }}
para pegar valores do Args:sub alterar :LocalRegex('[0-9]') { my ( $self,
$c, @get) = @_; $c->stash->{valor} = $get[0];
$c->forward('View::TT');}
Valeu.
Date: Sun, 10 Jul 2011 21:45:05 -0300
From: [email protected]
To: [email protected]
Subject: Re: [SP-pm] Validar session no Catalyst
cade o codigo?
2011/7/10 Lucas Moraes <[email protected]>
Gostaria de saber se a melhor forma de validar session no Catalyst é no: sub
end :Private {}?Aproveitando o e-mail, não estou conseguindo pegar os valores
do Args com o action :LocalRegex(), alguém pode me ajudar?
Obrigado.
=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
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L
=end disclaimer =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
