From 8cb596011a82a7be5f8a980493bcad1d69c93469 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Mon, 4 Jan 2021 10:35:37 -0300
Subject: [PATCH] Bug 27327: Get rid of indirect object notation in
 Koha::Club::Hold

This patch makes the code follow the PERL29 coding guideline. Period.

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 Koha/Club/Hold.pm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/Koha/Club/Hold.pm b/Koha/Club/Hold.pm
index 39a58dc7d4..df8be67de2 100644
--- a/Koha/Club/Hold.pm
+++ b/Koha/Club/Hold.pm
@@ -54,17 +54,21 @@ Class (static) method that returns a new Koha::Club::Hold instance
 sub add {
     my ( $params ) = @_;
 
-    throw Koha::Exceptions::ClubHold unless $params->{club_id} && $params->{biblio_id};
+    Koha::Exceptions::ClubHold->throw()
+        unless $params->{club_id} && $params->{biblio_id};
+
     my $club = Koha::Clubs->find($params->{club_id});
     my @enrollments = $club->club_enrollments->as_list;
-    throw Koha::Exceptions::ClubHold::NoPatrons() unless scalar @enrollments;
+
+    Koha::Exceptions::ClubHold::NoPatrons->throw()
+        unless scalar @enrollments;
 
     my $biblio = Koha::Biblios->find($params->{biblio_id});
 
     my $club_params = {
-        club_id => $params->{club_id},
+        club_id   => $params->{club_id},
         biblio_id => $params->{biblio_id},
-        item_id => $params->{item_id}
+        item_id   => $params->{item_id}
     };
 
     my $club_hold = Koha::Club::Hold->new($club_params)->store();
-- 
2.30.0