gistfile1.pl

package PiffHop;

use strict;
use warnings;

use base 'Mojolicious';

# This method will run once at server start
sub startup {
    my $self = shift;
    
    # Plugins
    # $self->plugin('...');

    # Routes
    my $r = $self->routes;
    
    # Namespace
    $r->namespace('PiffHop::Controller');

    # Authentication Check
    $r->under('/admin' => sub{
        my $self = shift;
        unless ($self->session('user')) {
            $self->flash(redirect => $self->req->url->to_abs->path);
            $self->redirect_to('/admin');
            return;
        }
        return 1;
    });

    # Main Routes
    $r->route('/')->to('main#index');
    my $admin = $r->route('/admin')->to('main#login');
}

1;