6 require q(./test.pl); plan(tests => 1);
10 example taken from: L<http://gauss.gwydiondylan.org/books/drm/drm_50.html>
26 define class <sentient> (<life-form>) end class;
27 define class <bipedal> (<life-form>) end class;
28 define class <intelligent> (<sentient>) end class;
29 define class <humanoid> (<bipedal>) end class;
30 define class <vulcan> (<intelligent>, <humanoid>) end class;
60 use base ('Intelligent', 'Humanoid');
64 mro::get_linear_isa('Vulcan'),
65 [ qw(Vulcan Intelligent Sentient Humanoid BiPedal LifeForm Object) ]
66 ), '... got the right MRO for the Vulcan Dylan Example');