View | Details | Raw Unified | Return to bug 28615
Collapse All | Expand All

(-)a/t/lib/Mocks/Logger.pm (-3 / +2 lines)
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
- 

Return to bug 28615