Add linting, pass gentle level

README.md

@@ -32,13 +32,17 @@ This repository contains the server application for the LocalSpend system. See a
 
 The server app. is written in [Perl](https://www.perl.org/).
 
+Admin. portal pages are templated using [HTML::EP](https://metacpan.org/pod/distribution/HTML-EP/lib/HTML/EP.pod).
+
 | Technology  | Description                          | Link                |
 |-------------|--------------------------------------|---------------------|
 | Mojolicious | Perl Web framework	                 | [Link][mojolicious] |
 | PostgreSQL	|	Relational database managment system | [Link][postgresql] |
+| SQLite    	|	Relational database managment system | [Link][sqlite] |
 
 [mojolicious]: https://mojolicious.org/
 [postgresql]: https://www.postgresql.org/
+[sqlite]: https://sqlite.org/index.html
 
 ## Features
 
@@ -122,7 +126,7 @@ Test files are found in the `t/` directory.
 
 ## Code Formatting
 
-TODO
+Run `perlcritic lib/` to format all Perl files with [Perl::Critic](https://metacpan.org/pod/Perl::Critic).
 
 ## Documentation
 

cpanfile

@@ -28,6 +28,7 @@ requires 'Text::CSV';
 requires 'Try::Tiny';
 requires 'Throwable::Error';
 requires 'Minion';
+requires 'Perl::Critic';
 requires 'WWW::FCM::HTTP';
 
 on 'test' => sub {

lib/Pear/LocalLoop/Controller/Admin/Reports.pm

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

lib/Pear/LocalLoop/Controller/Admin/Transactions.pm

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

lib/Pear/LocalLoop/Controller/Api/Categories.pm

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

lib/Pear/LocalLoop/Controller/Api/Stats.pm

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

lib/Pear/LocalLoop/Controller/Api/V1/Customer/Graphs.pm

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

lib/Pear/LocalLoop/Controller/Root.pm

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

lib/Pear/LocalLoop/Schema/ResultSet/Leaderboard.pm

@@ -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);
 }

lib/Pear/LocalLoop/Schema/Script/DeploymentHandler.pm

@@ -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;