Wrapping a Mojolicious chain with custom code

gistfile1.pl

$wrapped = $r->under('/')->to(cb => sub {
  my $c = shift;
  # Skip, without this we end up in an infinite loop.
  $c->match->current($c->match->current + 1);

  warn "mark 1";
  $c->continue;
  warn "mark 4";
  
  # Or, for example:
  # $c->app->db->txn_do(sub { $c->continue; });
  
  # We're already done, make sure we don't continue.  
  return;
});

my $foo = $wrapped->under('/foo')->to(cb => sub {
  warn "mark 2";
  return 1;
});

$foo->get('/bar')->to(cb => sub {
  warn "mark 3";
  shift->render(text => 'done');
});