* Lars Balker Rasmussen <[email protected]> [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/>
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
