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

my $route = under 'abc';

get 'public' => sub { shift->render(text => "public\n") };

my $secure = $route->under(sub {
  my $c = shift;

  return 1 if ($c->param('username') // '') =~ /^a/;

  $c->render(text => "try Plan C\n");
  return undef
})->name('is_secure');

$secure->get('private' => sub {
  my $c = shift;
  $c->render(text => sprintf "username: %s\n", $c->param('username'))
});
$secure->any('*any' => sub { shift->render(text => "something else\n") });

# $route->any('*any' => sub { shift->render(text => "try Plan C\n") });

app->start;