Add linting, pass gentle level

This commit is contained in:
Rumperuu 2021-03-20 11:52:59 +00:00
parent a8248f654f
commit 602a59f1c3
10 changed files with 17 additions and 9 deletions

View file

@ -73,7 +73,7 @@ sub pg_or_sqlite {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
return;
}
}

View file

@ -113,7 +113,7 @@ sub pg_or_sqlite {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
return;
}
}

View file

@ -79,7 +79,7 @@ sub pg_or_sqlite {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
return;
}
}

View file

@ -505,7 +505,7 @@ sub pg_or_sqlite {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
return;
}
}

View file

@ -160,7 +160,7 @@ sub pg_or_sqlite {
return \$sqlite_sql;
} else {
$c->app->log->warn('Unknown Driver Used');
return undef;
return;
}
}

View file

@ -16,7 +16,7 @@ sub under {
return 1;
}
$c->redirect_to('/');
return undef;
return;
}
sub auth_login {

View file

@ -13,7 +13,7 @@ sub get_latest {
my $type_result = $self->find_by_type( $type );
return undef unless defined $type_result;
return unless defined $type_result;
my $latest = $type_result->search_related('sets', {}, {
order_by => { -desc => 'date' },
@ -29,7 +29,7 @@ sub create_new {
my $type_result = $self->find_by_type($type);
return undef unless $type_result;
return unless $type_result;
return $type_result->create_new($date);
}

View file

@ -1,5 +1,8 @@
package Pear::LocalLoop::Schema::Script::DeploymentHandler;
use strict;
use warnings;
use MooX::Options::Actions;
use Module::Runtime qw/ use_module /;
use DBIx::Class::DeploymentHandler;