even more perlcritic fixes

davemenninger · Nov 15, 2014 · d4e10cd · d4e10cd
1 parent 493f242
commit d4e10cd
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 1 deletion.
diff --git a/lib/Lrrr.pm b/lib/Lrrr.pm
@@ -56,6 +56,7 @@ sub startup {
     $self->render( text => ($self->is_user_authenticated) ? 'secrets!' : 'go away!' );
   });
 
+  return;
 }
 
 1;
diff --git a/lib/Lrrr/Controller/Login.pm b/lib/Lrrr/Controller/Login.pm
@@ -29,6 +29,7 @@ sub login {
       $self->render(msg => 'already logged in');
     }
   }
+  return;
 }
 
 sub logoff {
@@ -40,6 +41,7 @@ sub logoff {
     format=>'html',
     msg => 'you are now logged out.'
   );
+  return;
 }
 
 1;
diff --git a/lib/Lrrr/Controller/Register.pm b/lib/Lrrr/Controller/Register.pm
@@ -47,6 +47,7 @@ sub register {
   else {      #not admin
     $self->render( msg => 'you must be logged in as admin.' );
   }
+  return;
 }
 
 1;
diff --git a/script/create_default_admin_user.pl b/script/create_default_admin_user.pl
@@ -10,7 +10,7 @@
 sub _salt {
   my $num = 999999;
   my $cr = crypt( rand($num), rand($num) ) . crypt( rand($num), rand($num) );
-  en_base64( substr( $cr, 4, 16 ) );
+  return en_base64( substr( $cr, 4, 16 ) );
 }
 
 my $cost = sprintf( '%02d', 6 );
-Original file line number
+Diff line change
@@ Expand Up / @@ -56,6 +56,7 @@ sub startup { @@
         $self->render( text => ($self->is_user_authenticated) ? 'secrets!' : 'go away!' );
       });
+      return;
     }
 ;