Run perltidy

lib/CharmBoard.pm

@@ -69,7 +69,8 @@ sub startup {
 
   # session helpers
   ## create session
-  $app->helper(session_create => sub {
+  $app->helper(
+    session_create => sub {
       my $app = shift;
 
       my $_session_key = seasoning(16);
@@ -88,23 +89,26 @@ sub startup {
       $app->session(user_id     => $_[0]);
       $app->session(session_key => $_session_key);
       $app->session(expiration  => 604800);
-  });
+    }
+  );
   ## destroy session
-  $app->helper(session_destroy => sub {
+  $app->helper(
+    session_destroy => sub {
       my $app = shift;
 
       my $_session_key = $app->session('session_key');
 
       # destroy entry for this session in the database
       $app->schema->resultset('Session')
-        ->search({ session_key => $_session_key })
+          ->search({ session_key => $_session_key })->delete;
-        ->delete;
 
       # now nuke the actual session cookie
       $app->session(expires => 1);
-  });
+    }
+  );
   ## verify session
-  $app->helper(session_verify => sub {
+  $app->helper(
+    session_verify => sub {
       my $app = shift;
 
       my $_validity = 1;
@@ -118,21 +122,21 @@ sub startup {
       if ($_is_auth) {
         try {
           # check to see if session with this id is present in db
-        ($app->schema->resultset('Session')->search
+          ($app->schema->resultset('Session')
-          ({ 'session_key' => $_session_key })
+                ->search({ 'session_key' => $_session_key })
                 ->get_column('session_key')->first)
               or die;
 
           # check to see if the current session key's user id matches
           # that of the user id in the database
-        $_user_id == ($app->schema->resultset('Session')->
+          $_user_id == ($app->schema->resultset('Session')
-          session_uid($_session_key))
+                ->session_uid($_session_key))
               or die;
 
           # check if session is still within valid time as recorded in
           # the db
-        time < ($app->schema->resultset('Session')->
+          time < ($app->schema->resultset('Session')
-          session_expiry($_session_key))
+                ->session_expiry($_session_key))
               or die;
         } catch ($_catch_error) {
           $_validity = undef;
@@ -143,7 +147,8 @@ sub startup {
       }
 
       return $_validity;
-  });
+    }
+  );
 
   # router
   my $r = $app->routes;

lib/CharmBoard/Controller/Login.pm

@@ -62,7 +62,8 @@ sub login_do {
   } catch ($catch_error) {    # redirect to login page on fail
     print $catch_error;
     $c->flash(
-      error => 'Your username and password were correct, but a server
+      error =>
+          'Your username and password were correct, but a server
           error prevented you from logging in. This has been logged
           so the administrator can fix it.'
     );

lib/CharmBoard/Controller/NewThread.pm

@@ -16,15 +16,14 @@ sub thread_compose {
   my $subf_cat =
       $c->schema->resultset('Subforums')->cat_from_id($subf_id);
   my $cat_title =
-      $c->schema->resultset('Categories')
+      $c->schema->resultset('Categories')->title_from_id($subf_cat);
-      ->title_from_id($subf_cat);
 
   $c->render(
     template   => 'thread_compose',
     subf_id    => $subf_id,
     cat_title  => $cat_title,
-      subf_title => $c->schema->resultset('Subforums')
+    subf_title =>
-        ->title_from_id($subf_id),
+        $c->schema->resultset('Subforums')->title_from_id($subf_id),
     error   => $c->flash('error'),
     message => $c->flash('message')
   )

lib/CharmBoard/Controller/Register.pm

@@ -53,8 +53,9 @@ sub register_do {
     ## search for input username and email in database
     $user_check = $c->schema->resultset('Users')
         ->search({ username => $username })->single;
-    $email_check = $c->schema->resultset('Users')
+    $email_check =
-        ->search({ email => $email })->single;
+        $c->schema->resultset('Users')->search({ email => $email })
+        ->single;
 
     # TODO: compress this into something less redundant
     ($user_check && $email_check) eq undef

lib/CharmBoard/Controller/ViewSubf.pm

@@ -16,8 +16,7 @@ sub subf_view {
   my $subf_cat =
       $c->schema->resultset('Subforums')->cat_from_id($subf_id);
   my $cat_title =
-      $c->schema->resultset('Categories')
+      $c->schema->resultset('Categories')->title_from_id($subf_cat);
-      ->title_from_id($subf_cat);
 
   my @thread_list =
       $c->schema->resultset('Threads')->fetch_by_subf($subf_id);
@@ -26,8 +25,8 @@ sub subf_view {
     template   => 'subf',
     subf_id    => $subf_id,
     cat_title  => $cat_title,
-    subf_title  => $c->schema->resultset('Subforums')
+    subf_title =>
-        ->title_from_id($subf_id),
+        $c->schema->resultset('Subforums')->title_from_id($subf_id),
     thread_list => \@thread_list
   )
 }

lib/CharmBoard/Model/Forums.pm

@@ -12,8 +12,10 @@ use Tree::Simple;
 
 sub list_full {
   my $c = shift;
+
   # fetch a list of all categories
-  my @_all_cat = $c->{app}->schema->resultset('Categories')->fetch_all;
+  my @_all_cat =
+      $c->{app}->schema->resultset('Categories')->fetch_all;
 
   # create a Tree::Simple object that will contain the list
   # of categories and the subforums that belong to them

templates/thread_compose.html.ep

@@ -14,7 +14,7 @@
       id="post-content"
       name="post-content"
       cols="50" rows="5"
-      placeholder="post content">
+      placeholder="post content"></textarea>
-  </textarea><br /><br />
+  <br /><br />
   <input type="submit" value="post!" />
 </form>