perltidy code

.gitignore

@@ -1,3 +1,4 @@
 log
 explain.production.json
 .vagrant
+*.beforeTidy

lib/Explain.pm

@@ -19,9 +19,11 @@ sub startup {
     # array format
     my $use_secret = $config->{ secret } || 'Xwyfe-_d:yGDr+p][Vs7Kk+e3mmP=c_|s7hvExF=b|4r4^gO|';
     if ( $self->can( 'secrets' ) ) {
+
         # We're on Mojolicious 4.63 or newer
         $self->secrets( [ $use_secret ] );
-    } else {
+    }
+    else {
         # We're on old Mojolicious
         $self->secret( $use_secret );
     }

lib/Explain/Controller.pm

@@ -403,13 +403,15 @@ sub info {
         next if $module =~ m{^\.?/};
         $module =~ s/\.pm$//;
         $module =~ s#/#::#g;
-        push @versions, {
+        push @versions,
+            {
             'module'  => $module,
             'version' => $module->VERSION,
             };
     }
     $self->stash( 'modules' => \@versions );
-    $self->stash( 'perl' => {
+    $self->stash(
+        'perl' => {
             'version' => $PERL_VERSION,
             'binary'  => $Config{ 'perlpath' } . $Config{ '_exe' },
         }
@@ -421,7 +423,8 @@ sub status {
     my $self = shift;
     if ( $self->database->ping() ) {
         $self->render( 'text' => 'OK', status => 200 );
-    } else {
+    }
+    else {
         $self->render( 'text' => 'DB FAILED', status => 500 );
     }
 }

lib/Explain/Plugin/Database.pm

@@ -264,8 +264,7 @@ sub get_optimization_path {
     my $self = shift;
     my ( $plan_id ) = @_;
 
-    my $rows = $self->dbh->selectall_arrayref(
-        '
+    my $rows = $self->dbh->selectall_arrayref( '
             WITH RECURSIVE path AS (
                 SELECT id, title, optimization_for, 0 as level FROM plans WHERE id = ? and not is_deleted
                 union all