[SP-pm] Validar session no Catalyst

[Lucas Moraes]

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: hernanlopes em gmail.com
To: saopaulo-pm em mail.pm.org
Subject: Re: [SP-pm] Validar session no Catalyst

cade o codigo?

2011/7/10 Lucas Moraes <mineiro em live.be>






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: SaoPaulo-pm em pm.org

 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: SaoPaulo-pm em pm.org
 L
=end disclaimer 		 	   		  
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110711/101ef5c3/attachment.html>