From 8cb596011a82a7be5f8a980493bcad1d69c93469 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi 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 --- 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