6 use Test::More tests => 2;
10 This tests a strange bug found by Matt S. Trout
11 while building DBIx::Class. Thanks Matt!!!!
25 sub foo { 'Diamond_A::foo' }
32 sub foo { 'Diamond_B::foo => ' . (shift)->next::method }
42 use base ('Diamond_C', 'Diamond_B');
45 sub foo { 'Diamond_D::foo => ' . (shift)->next::method }
48 Class::C3::initialize();
51 [ Class::C3::calculateMRO('Diamond_D') ],
52 [ qw(Diamond_D Diamond_C Diamond_B Diamond_A) ],
53 '... got the right MRO for Diamond_D');
56 'Diamond_D::foo => Diamond_B::foo => Diamond_A::foo',
57 '... got the right next::method dispatch path');