6 use Test::More tests => 2;
16 If compile-time code from another module issues a [re]initialize() part-way
17 through the process of setting up own our modules, that shouldn't prevent
18 our own initialize() call from working properly.
28 use base 'TestMRO::A';
32 use base 'TestMRO::A';
34 sub testmethod { shift->next::method + 1 }
37 BEGIN { Class::C3::initialize }
38 use base 'TestMRO::B';
39 use base 'TestMRO::C';
44 bless $self => $class;
48 Class::C3::initialize;
49 is(TestMRO::D->new->testmethod, 43, 'double-initialize works ok');