Lines 45-51
sub mock_config {
Link Here
|
45 |
my $koha_config = Test::MockModule->new('Koha::Config'); |
45 |
my $koha_config = Test::MockModule->new('Koha::Config'); |
46 |
my ( $conf, $value ) = @_; |
46 |
my ( $conf, $value ) = @_; |
47 |
$configs{$conf} = $value; |
47 |
$configs{$conf} = $value; |
48 |
$koha_config->redefine('get', sub { |
48 |
$koha_config->mock('get', sub { |
49 |
my ( $self, $conf ) = @_; |
49 |
my ( $self, $conf ) = @_; |
50 |
if ( exists $configs{$conf} ) { |
50 |
if ( exists $configs{$conf} ) { |
51 |
return $configs{$conf} |
51 |
return $configs{$conf} |
52 |
- |
|
|