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