6 require q(./test.pl); plan(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)->SUPER::foo }
42 use base ('Diamond_C', 'Diamond_B');
45 sub foo { 'Diamond_D::foo => ' . (shift)->SUPER::foo }
49 mro::get_linear_isa('Diamond_D'),
50 [ qw(Diamond_D Diamond_C Diamond_B Diamond_A) ]
51 ), '... got the right MRO for Diamond_D');
54 'Diamond_D::foo => Diamond_B::foo => Diamond_A::foo',
55 '... got the right next::method dispatch path');