groups.pl

#!/usr/bin/env perl
use Mojolicious::Lite;

# Global logic shared by all routes
under sub {
  my $self = shift;
  return 1 if $self->req->headers->header('X-Bender');
  $self->render(text => "You're not Bender!");
  return;
};

# Admin section
group {

  # Local logic shared only by routes in this group
  under '/admin' => sub {
    my $self = shift;
    return 1 if $self->req->headers->header('X-Awesome');
    $self->render(text => "You're not awesome enough!");
    return;
  };

  # GET /admin/dashboard
  get '/dashboard' => {text => 'Nothing to see here yet!'};
};

# GET /welcome
get '/welcome' => {text => 'Hi Bender!'};

app->start;