Perl critic suggestions.

lystyng · Jan 18, 2016 · cb45898 · cb45898
1 parent b12deea
commit cb45898
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib/Lystyng.pm b/lib/Lystyng.pm
@@ -150,4 +150,4 @@ get '/logout' => sub {
   redirect '/';
 };
 
-true;
+1;
diff --git a/lib/Lystyng/Schema.pm b/lib/Lystyng/Schema.pm
@@ -17,6 +17,8 @@ __PACKAGE__->load_namespaces;
 
 # You can replace this text with custom code or comments, and it will be preserved on regeneration
 
+use Carp;
+
 sub check_env {
   my @errors;
   foreach (qw[LYSTYNG_DB_SERVER LYSTYNG_DB_NAME
@@ -25,7 +27,7 @@ sub check_env {
   }
 
   if (@errors) {
-    die("Missing connection info: @errors");
+    croak("Missing connection info: @errors");
   }
 }