[Catalyst] Re: Detach won't detach?
Aristotle Pagaltzis
pagaltzis at gmx.de
Tue Jan 27 02:35:11 GMT 2009
* Lars Balker Rasmussen <lars at balker.dk> [2009-01-26 20:10]:
> sub auto :Private {
> my ( $self, $c ) = @_;
>
> if ( ! user_logged_in) {
> $c->redirect( $c->req->base );
> return 0;
> }
>
> return 1;
> }
sub auto :Private {
my ( $self, $c ) = @_;
return 1 if user_logged_in;
$c->redirect( $c->req->base );
return 0;
}
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>
More information about the Catalyst
mailing list