Question

I am looking for a clean and simple example of how to use the “under” functionality in a “Mojolicious” application. All the examples I find are dealing with “Mojolicious::Lite” (which I don’t use).
For example I listened to the screencast here http://mojocasts.com/e3 and I think I understand the concept of the under functionality. But I don’t use “Mojolicious::Lite”, so it seems that I can’t follow the example directly. I keep on failing trying to adopt the Lite-example for non-Lite style. (That’s probably also because I’m still kind of new to the framework)

The relevant code looks like this:

# Router
my $r = $self->routes;

# Normal route to controller
$r->get('/') ->to('x#a');
$r->get('/y')->to('y#b');
$r->any('/z')->to('z#c');

So all of this routes need to be protected by user/pass. I tried to do something like this:

$r->under = sub { return 1 if ($auth) };

But this does not compile and I just can’t find an example matching this code-style…
Can anybody give me the right hint or link here?
And please forgive me if this is somewhere in the docs… they might be complete, but they lack understandable examples for simple minded guys like me 😛

Answer 1

The analogous code to the Lite-examples looks like this:

# Router
my $r = $self->routes;

# This route is public
$r->any('/login')->to('login#form');

# this sub does the auth-stuff
# you can use stuff like: $self->param('password')
# to check user/pw and return true if fine
my $auth = $r->under( sub { return 1 } );

# This routes are protected
$auth->get ('/') ->to('x#a');
$auth->post('/y')->to('y#b');
$auth->any ('/z')->to('z#c');

Hopes this helps anybody!

(Solution found here: http://mojolicio.us/perldoc/Mojolicious/Routes/Route#under)