From 46c29c8e46670d8ae663a41487b4be37978a6d20 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 2 Nov 2020 11:30:04 +0100 Subject: [PATCH] Bug 22806: Remove perlcritic errors Subroutine "new" called using indirect syntax at line 415, column 18. See page 349 of PBP. (Severity: 4) Subroutine "new" called using indirect syntax at line 420, column 14. See page 349 of PBP. (Severity: 4) Signed-off-by: Jonathan Druart --- t/db_dependent/ILSDI_Services.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/ILSDI_Services.t b/t/db_dependent/ILSDI_Services.t index c721a2496d..5e38a12df2 100755 --- a/t/db_dependent/ILSDI_Services.t +++ b/t/db_dependent/ILSDI_Services.t @@ -412,12 +412,12 @@ subtest 'Holds test' => sub { $reply = C4::ILSDI::Services::HoldItem( $query ); is( $reply->{code}, 'damaged', "Item is damaged" ); - my $module = new Test::MockModule('C4::Context'); + my $module = Test::MockModule->new('C4::Context'); $module->mock('userenv', sub { { patron => $patron } }); my $issue = C4::Circulation::AddIssue($patron, $item3->barcode); t::lib::Mocks::mock_preference( 'AllowHoldsOnPatronsPossessions', '0' ); - $query = new CGI; + $query = CGI->new; $query->param( 'patron_id', $patron->{borrowernumber}); $query->param( 'bib_id', $item3->biblionumber); $query->param( 'item_id', $item3->itemnumber); -- 2.39.5