restart.pl

  # Stop prefork workers gracefully once they reach a certain size
  my $parent = $$;
  Mojo::IOLoop->next_tick(
    sub {
      Mojo::IOLoop->recurring(
        5 => sub {
          my $rss = (getrusage())[2];
          my $max = $config->{max_worker_rss};
          return unless $rss > $max;
          $app->log->warn(
            qq{Worker exceeded RSS limit "$rss > $max", restarting});
          Mojo::IOLoop->stop_gracefully;
        }
      ) if $parent ne $$;
    }
  );