From 78f06b277659033e0ddde5119755298c6e6e8a65 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Sat, 15 Jul 2023 17:09:56 +0000 Subject: [PATCH] Bug 33745: (follow-up) Fool perlcritic Content-Type: text/plain; charset=utf-8 If you work with hashes, everything should be fine :) Test plan: Run qa tools or perlcritic Koha/Object.pm Prove t/db_dependent/Koha Signed-off-by: Marcel de Rooy --- Koha/Object.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Koha/Object.pm b/Koha/Object.pm index 190b57cde9..f97d9cc9c9 100644 --- a/Koha/Object.pm +++ b/Koha/Object.pm @@ -918,8 +918,9 @@ sub AUTOLOAD { return $self->_result()->get_column($method); } }; - no strict 'refs'; - *{$AUTOLOAD} = $accessor; + # No need for disabling strict if we do it like this: + my $symbols = \%main::; + $symbols->{__PACKAGE__}{$method} = $accessor; return $accessor->( $self, @_ ); } -- 2.30.2