From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001
From: Perl Tidy <perltidy@bugzilla.org>
Date: Wed, 5 Dec 2018 15:38:52 -0500
Subject: no bug - reformat all the code using the new perltidy rules

---
 extensions/RequestNagger/lib/Settings.pm | 75 ++++++++++++++++----------------
 1 file changed, 38 insertions(+), 37 deletions(-)

(limited to 'extensions/RequestNagger/lib/Settings.pm')

diff --git a/extensions/RequestNagger/lib/Settings.pm b/extensions/RequestNagger/lib/Settings.pm
index 393d224ba..839c37485 100644
--- a/extensions/RequestNagger/lib/Settings.pm
+++ b/extensions/RequestNagger/lib/Settings.pm
@@ -17,47 +17,48 @@ use List::MoreUtils qw( any );
 use constant FIELDS => qw( reviews_only extended_period no_encryption );
 
 sub new {
-    my ($class, $user_id) = @_;
-
-    my $dbh  = Bugzilla->dbh;
-    my $self = { user_id => $user_id };
-    foreach my $row (@{ $dbh->selectall_arrayref(
-        "SELECT setting_name,setting_value FROM nag_settings WHERE user_id = ?",
-        { Slice => {} },
-        $user_id
-    ) }) {
-        $self->{$row->{setting_name}} = $row->{setting_value};
-    }
-
-    return bless($self, $class);
+  my ($class, $user_id) = @_;
+
+  my $dbh = Bugzilla->dbh;
+  my $self = {user_id => $user_id};
+  foreach my $row (@{
+    $dbh->selectall_arrayref(
+      "SELECT setting_name,setting_value FROM nag_settings WHERE user_id = ?",
+      {Slice => {}}, $user_id)
+  })
+  {
+    $self->{$row->{setting_name}} = $row->{setting_value};
+  }
+
+  return bless($self, $class);
 }
 
-sub reviews_only    { exists $_[0]->{reviews_only}    ? $_[0]->{reviews_only}    : 0 }
-sub extended_period { exists $_[0]->{extended_period} ? $_[0]->{extended_period} : 0 }
-sub no_encryption   { exists $_[0]->{no_encryption}   ? $_[0]->{no_encryption}   : 0 }
+sub reviews_only { exists $_[0]->{reviews_only} ? $_[0]->{reviews_only} : 0 }
+
+sub extended_period {
+  exists $_[0]->{extended_period} ? $_[0]->{extended_period} : 0;
+}
+sub no_encryption { exists $_[0]->{no_encryption} ? $_[0]->{no_encryption} : 0 }
 
 sub set {
-    my ($self, $field, $value) = @_;
-    return unless any { $_ eq $field } FIELDS;
-    $value = $value ? 1 : 0;
-
-    my $dbh = Bugzilla->dbh;
-    if (exists $self->{$field}) {
-        $dbh->do(
-            "UPDATE nag_settings SET setting_value=? WHERE user_id=? AND setting_name=?",
-            undef,
-            $value, $self->{user_id}, $field
-        );
-    }
-    else {
-        $dbh->do(
-            "INSERT INTO nag_settings(user_id, setting_name, setting_value) VALUES (?, ?, ?)",
-            undef,
-            $self->{user_id}, $field, $value
-        );
-    }
-
-    $self->{$field} = $value;
+  my ($self, $field, $value) = @_;
+  return unless any { $_ eq $field } FIELDS;
+  $value = $value ? 1 : 0;
+
+  my $dbh = Bugzilla->dbh;
+  if (exists $self->{$field}) {
+    $dbh->do(
+      "UPDATE nag_settings SET setting_value=? WHERE user_id=? AND setting_name=?",
+      undef, $value, $self->{user_id}, $field);
+  }
+  else {
+    $dbh->do(
+      "INSERT INTO nag_settings(user_id, setting_name, setting_value) VALUES (?, ?, ?)",
+      undef, $self->{user_id}, $field, $value
+    );
+  }
+
+  $self->{$field} = $value;
 }
 
 1;
-- 
cgit v1.2.3-24-g4f1b