Browse Source

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 <jonathan.druart@bugs.koha-community.org>
20.11.x
Jonathan Druart 11 months ago
parent
commit
46c29c8e46
  1. 4
      t/db_dependent/ILSDI_Services.t

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

Loading…
Cancel
Save