Cry in the log when secrets are missing

Raku · Nov 14, 2015 · b2050a5 · b2050a5
1 parent f62ee8e
commit b2050a5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/mojo-app/lib/ModulesPerl6.pm b/mojo-app/lib/ModulesPerl6.pm
@@ -20,6 +20,9 @@ sub startup {
     my $secrets_file = -r SECRETS_FILE
         ? SECRETS_FILE : catfile qw/.. db-builder github-token/;
 
+    $self->app->log->info('Did not find suitable file to get secrets from')
+        unless -r $secrets_file;
+
     $self->secrets([
         -r $secrets_file ? slurp $secrets_file : 'Perl 6 is awesome!'
     ]);