db/explain.depesz.com
1
0
Fork 0
mirror of https://gitlab.com/depesz/explain.depesz.com.git synced 2025-07-13 01:30:14 +02:00
Code Activity

perltidy code

Browse Source
This commit is contained in:
Hubert depesz Lubaczewski
2019-05-14 13:05:34 +02:00
parent 06503d10d9
commit f9e0abffe5
5 changed files with 31 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

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

4
lib/Explain.pm
View File

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

9
lib/Explain/Controller.pm
View File

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

3
lib/Explain/Plugin/Database.pm
View File

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