[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