From 3734f429b4b7ae4fe4eb1ba9821e62c0c0f16cd2 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 23 Jan 2026 10:35:53 +0100 Subject: [PATCH] Bug 41521: Silent perlcritic warnings Stricture disabled at line 67, column 5. See page 429 of PBP. (Severity: 5) We should deal with that later instead of ignoring the warnings --- lib/WebService/ILS/JSON.pm | 2 +- lib/WebService/ILS/OverDrive.pm | 2 +- lib/WebService/ILS/RecordedBooks/Partner.pm | 2 +- lib/WebService/ILS/XML.pm | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/WebService/ILS/JSON.pm b/lib/WebService/ILS/JSON.pm index d4495a55a11..1cadd5c2e9c 100644 --- a/lib/WebService/ILS/JSON.pm +++ b/lib/WebService/ILS/JSON.pm @@ -104,7 +104,7 @@ sub with_json_request { my $method = shift || 'post'; my $req_builder = "HTTP::Request::Common::".uc( $method ); - no strict 'refs'; + no strict 'refs'; ## no critic (ProhibitNoStrict) my $request = $req_builder->( $url ); $self->_json_request_content($request, $post_params); my $response = $self->_request_with_auth($request); diff --git a/lib/WebService/ILS/OverDrive.pm b/lib/WebService/ILS/OverDrive.pm index 963484c8965..5ee8aec9ce7 100644 --- a/lib/WebService/ILS/OverDrive.pm +++ b/lib/WebService/ILS/OverDrive.pm @@ -273,7 +273,7 @@ sub native_search { } foreach my $f (qw(next prev first last)) { - no strict 'refs'; + no strict 'refs'; ## no critic (ProhibitNoStrict) my $method = "native_search_$f"; *$method = sub { my $self = shift; diff --git a/lib/WebService/ILS/RecordedBooks/Partner.pm b/lib/WebService/ILS/RecordedBooks/Partner.pm index 424398c5e53..d95d24e0388 100644 --- a/lib/WebService/ILS/RecordedBooks/Partner.pm +++ b/lib/WebService/ILS/RecordedBooks/Partner.pm @@ -63,7 +63,7 @@ Differences to general L interface =cut foreach my $sub (qw(place_hold remove_hold renew return)) { - no strict "refs"; + no strict "refs"; ## no critic (ProhibitNoStrict) *$sub = sub { my $self = shift; my $patron_id = shift or croak "No patron id"; diff --git a/lib/WebService/ILS/XML.pm b/lib/WebService/ILS/XML.pm index dd7c72359fb..0eab4e32f8d 100644 --- a/lib/WebService/ILS/XML.pm +++ b/lib/WebService/ILS/XML.pm @@ -73,7 +73,7 @@ sub with_xml_request { my $method = shift || 'post'; my $req_builder = "HTTP::Request::Common::".uc( $method ); - no strict 'refs'; + no strict 'refs'; ## no critic (ProhibitNoStrict) my $request = $req_builder->( $url ); $request->header( 'Content-Type' => 'application/xml; charset=utf-8' ); $request->content( $dom->toeString ); -- 2.43.0