@@ -, +, @@ OK. + code factorisation with a function call. --- C4/Installer/PerlDependencies.pm | 5 ----- t/db_dependent/OAI/Server.t | 15 ++++++++++----- 2 files changed, 10 insertions(+), 10 deletions(-) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -782,11 +782,6 @@ our $PERL_DEPS = { 'required' => '1', 'min_ver' => '1.10', }, - 'Capture::Tiny' => { - 'usage' => 'Core', - 'required' => '0', - 'min_ver' => '0.18', - }, }; 1; --- a/t/db_dependent/OAI/Server.t +++ a/t/db_dependent/OAI/Server.t @@ -25,7 +25,6 @@ use Test::More tests => 13; use Test::MockModule; use Test::Warn; use DateTime; -use Capture::Tiny ':all'; use XML::Simple; use t::lib::Mocks; @@ -74,8 +73,15 @@ t::lib::Mocks::mock_preference('OAI-PMH:MaxCount', 3); t::lib::Mocks::mock_preference('OAI-PMH:DeletedRecord', 'persistent'); %param = ( verb => 'ListMetadataFormats' ); -my ($response) = capture { Koha::OAI::Server::Repository->new(); }; -$response = XMLin($response); +my $response; +my $get_response = sub { + my $stdout; + local *STDOUT; + open STDOUT, '>', \$stdout; + Koha::OAI::Server::Repository->new(); + $response = XMLin($stdout); +}; +$get_response->(); my $now = DateTime->now . 'Z'; my $expected = { request => 'http://localhost', @@ -101,8 +107,7 @@ my $expected = { is_deeply($response, $expected, "ListMetadataFormats"); %param = ( verb => 'ListIdentifiers' ); -($response) = capture { Koha::OAI::Server::Repository->new(); }; -$response = XMLin($response); +$get_response->(); $now = DateTime->now . 'Z'; $expected = { request => 'http://localhost', --