1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
use strict;
use Test::More tests => 2;
use MRO::Compat;
use lib qw(t/lib);
use DBICTest; # do not remove even though it is not used
{
package AAA;
use base "DBIx::Class::Core";
package BBB;
use base 'AAA';
#Injecting a direct parent.
__PACKAGE__->inject_base( __PACKAGE__, 'AAA' );
package CCC;
use base 'AAA';
#Injecting an indirect parent.
__PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' );
}
eval { mro::get_linear_isa('BBB'); };
ok (! $@, "Correctly skipped injecting a direct parent of class BBB");
eval { mro::get_linear_isa('CCC'); };
ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");
|
