[Catalyst] RFC: CatalystX::RedirectAfterLogin

Devin Austin devin.austin at gmail.com
Mon Jul 13 09:04:46 GMT 2009

I'm quite positive others are working on something like this, but I'd like
this to serve as A) my volunteering to help with ongoing efforts and B) help
get a center point from which to start.

I'm working on a "pass through login" type Role for Catalyst (I think that's
what I should call it).

The idea looks like this:

 package TestApp::Controller::Root;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }
with 'CatalystX::RedirectAfterLogin';

sub login : Local {
    my ($self, $c) =3D @_;

    if ( $c->req->param('username') eq 'blah' ) {
    } else {


sub success : Path {
    my ($self, $c) =3D @_;


This isn't quite working yet. I'm getting some errors with Moose that I
can't figure out. Feel free to poke:

Original post:

-- =

Devin Austin
http://www.dreamhost.com/r.cgi?326568/hosting.html - Host with DreamHost!
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20090713/e7e2d=

More information about the Catalyst mailing list