Lines 20-26
use Modern::Perl;
Link Here
|
20 |
use base 'Test::Builder::Module'; |
20 |
use base 'Test::Builder::Module'; |
21 |
use base qw(Class::Accessor); |
21 |
use base qw(Class::Accessor); |
22 |
|
22 |
|
23 |
use Test::MockModule qw(strict); |
23 |
use Test::MockModule; |
24 |
use Test::MockObject; |
24 |
use Test::MockObject; |
25 |
|
25 |
|
26 |
my $CLASS = __PACKAGE__; |
26 |
my $CLASS = __PACKAGE__; |
Lines 48-54
sub new {
Link Here
|
48 |
my $mocked_logger_class = Test::MockModule->new("Koha::Logger"); |
48 |
my $mocked_logger_class = Test::MockModule->new("Koha::Logger"); |
49 |
my $mocked_logger = Test::MockObject->new(); |
49 |
my $mocked_logger = Test::MockObject->new(); |
50 |
|
50 |
|
51 |
$mocked_logger_class->redefine( |
51 |
$mocked_logger_class->mock( |
52 |
'get', |
52 |
'get', |
53 |
sub { |
53 |
sub { |
54 |
return $mocked_logger; |
54 |
return $mocked_logger; |
55 |
- |
|
|