gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Signed-off-by: Victor Grousset/tuxayo <victor@tuxayo.net>
Signed-off-by: David Cook <dcook@prosentient.com.au>
Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
This commit is contained in:
Jonathan Druart 2026-01-23 10:35:53 +01:00 committed by Martin Renvoize
parent d0ee8f5a6e
commit a12aac8957
No known key found for this signature in database
GPG Key ID: 2D86E0EAEC83711B
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/WebService/ILS/JSON.pm
View File

@ -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);

2
lib/WebService/ILS/OverDrive.pm
View File

@ -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;

2
lib/WebService/ILS/RecordedBooks/Partner.pm
View File

@ -63,7 +63,7 @@ Differences to general L<WebService::ILS> 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";

2
lib/WebService/ILS/XML.pm
View File

@ -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 );