Mojolicious Under app example

Under.pm

package Under;

use Mojo::Base 'Mojolicious';
use Mojo::Util qw(secure_compare);

sub startup {
    my $self = shift;
    
    my $r = $self->routes;
    
    $r->get('/', sub {
        my $c = shift;

        $c->render(text => 'Hello World!');
    });

    my $logged_in = $r->under (sub {
        my $c = shift;

        # Have access
        return 1 if secure_compare(
            $c->req->url->to_abs->userinfo,
            'user:523487063f1011e68442002500f18b6d'
        );

        # Do not have access
        $c->render(json => 
            {status => "error", data => { message => "Credentials mis-match" }}
        );

        return undef;
    });
    
    $logged_in->get('/admin', sub {
        my $c = shift;

        $c->render(text => 'User access area');
    });
}

1;