12 use Test::More tests => 2;
16 This tests a strange bug found by Matt S. Trout
17 while building DBIx::Class. Thanks Matt!!!!
31 sub foo { 'Diamond_A::foo' }
38 sub foo { 'Diamond_B::foo => ' . (shift)->SUPER::foo }
48 use base ('Diamond_C', 'Diamond_B');
51 sub foo { 'Diamond_D::foo => ' . (shift)->SUPER::foo }
55 mro::get_linear_isa('Diamond_D'),
56 [ qw(Diamond_D Diamond_C Diamond_A Diamond_B) ],
57 '... got the right MRO for Diamond_D');
60 'Diamond_D::foo => Diamond_A::foo',
61 '... got the right next::method dispatch path');