improve the configuration and performance of the mojolicious app

frameworks/Perl/mojolicious/app.pl

@@ -14,10 +14,14 @@ plugin JSONConfig => {
     hypnotoad => {
       graceful_timeout => 1,
     },
+    hypnotoad_merge => {},
   },
 };
 
-app->config->{hypnotoad}{workers} = app->config->{workers};
+{
+  my $merge = app->config->{hypnotoad_merge};
+  @{app->config->{hypnotoad}}{keys %$merge} = values %$merge;
+}
 
 # Database connections
 
@@ -32,19 +36,19 @@ helper render_json => sub { shift->render( data => encode_json(shift), format =>
 
 # Routes
 
-get '/json' => sub { shift->render_json({message => 'Hello, World!'}) };
+get '/json' => sub { shift->helpers->render_json({message => 'Hello, World!'}) };
 
-get '/db' => sub { shift->render_query(1, {single => 1}) };
+get '/db' => sub { shift->helpers->render_query(1, {single => 1}) };
 
 get '/queries' => sub {
   my $c = shift;
-  $c->render_query(scalar $c->param('queries'));
+  $c->helpers->render_query(scalar $c->param('queries'));
 };
 
 get '/fortunes' => sub {
   my $c = shift->render_later;
   my $tx = $c->tx;
-  $c->fortune->find->all(sub{
+  $c->helpers->fortune->find->all(sub{
     my ($cursor, $err, $docs) = @_;
     push @$docs, { _id => 0, message => 'Additional fortune added at request time.' };
     $c->render( fortunes => docs => $docs ) unless $tx->is_finished;
@@ -53,7 +57,7 @@ get '/fortunes' => sub {
 
 get '/updates' => sub {
   my $c = shift;
-  $c->render_query(scalar $c->param('queries'), {update => 1});
+  $c->helpers->render_query(scalar $c->param('queries'), {update => 1});
 };
 
 get '/plaintext' => sub { shift->render( text => 'Hello, World!' ) };
@@ -77,7 +81,7 @@ helper 'render_query' => sub {
   my $delay = Mojo::IOLoop->delay;
   $delay->on(finish => sub{
     $r = $r->[0] if $args->{single};
-    $self->render_json($r) unless $tx->is_finished;
+    $self->helpers->render_json($r) unless $tx->is_finished;
   });
 
   my $world = $self->world;

frameworks/Perl/mojolicious/cpanfile

@@ -1,4 +1,4 @@
-requires 'Mojolicious', '>= 5.0';
+requires 'Mojolicious', '>= 5.29';
 requires 'Mango', '>= 1.0';
 requires 'JSON::XS';
 requires 'EV';

frameworks/Perl/mojolicious/cpanfile.snapshot

@@ -16,10 +16,10 @@ DISTRIBUTIONS
       ExtUtils::MakeMaker 0
       Types::Serialiser 0
       common::sense 0
-  Mango-1.05
-    pathname: S/SR/SRI/Mango-1.05.tar.gz
+  Mango-1.06
+    pathname: S/SR/SRI/Mango-1.06.tar.gz
     provides:
-      Mango 1.05
+      Mango 1.06
       Mango::BSON undef
       Mango::BSON::Binary undef
       Mango::BSON::Code undef
@@ -39,9 +39,9 @@ DISTRIBUTIONS
       Mango::Protocol undef
     requirements:
       ExtUtils::MakeMaker 0
-      Mojolicious 5.0
-  Mojolicious-5.28
-    pathname: S/SR/SRI/Mojolicious-5.28.tar.gz
+      Mojolicious 5.32
+  Mojolicious-5.32
+    pathname: S/SR/SRI/Mojolicious-5.32.tar.gz
     provides:
       Mojo undef
       Mojo::Asset undef
@@ -104,7 +104,7 @@ DISTRIBUTIONS
       Mojo::UserAgent::Server undef
       Mojo::UserAgent::Transactor undef
       Mojo::Util undef
-      Mojolicious 5.28
+      Mojolicious 5.32
       Mojolicious::Command undef
       Mojolicious::Command::cgi undef
       Mojolicious::Command::cpanify undef

frameworks/Perl/mojolicious/setup.py

@@ -1,11 +1,15 @@
 import subprocess
 import json
 import os
+import multiprocessing
 
 def start(args, logfile, errfile):
   conf = { 
     'database_host' : args.database_host,
-    'workers'       : args.max_threads,
+    'hypnotoad_merge' : {
+      'workers' : 2*multiprocessing.cpu_count(), 
+      # can use args.max_threads and args.max_concurrency to set
+    },
   }
   with open(args.troot + '/app.conf', 'w') as f:
     f.write(json.dumps(conf))