* LDV : database connection keepalive

6 years ago · 57bf95747d
1 changed files with 5 additions and 0 deletions
--- a/lib/LDV.pm
+++ b/lib/LDV.pm
@ -41,6 +41,11 @@ sub startup {
    $db->connect;
    return $db;
  });
+  my $loop = Mojo::IOLoop->singleton;
+  $loop->recurring(60 => sub {
+    $self->app->db->ping;
+    $self->app->log->debug("db ping, process $$");
+  });

  my $r = $self->routes;