[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