|
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 |
- |
|
|