12 use Test::More tests => 1;
17 example taken from: L<http://gauss.gwydiondylan.org/books/drm/drm_50.html>
33 define class <sentient> (<life-form>) end class;
34 define class <bipedal> (<life-form>) end class;
35 define class <intelligent> (<sentient>) end class;
36 define class <humanoid> (<bipedal>) end class;
37 define class <vulcan> (<intelligent>, <humanoid>) end class;
67 use base ('Intelligent', 'Humanoid');
71 mro::get_linear_isa('Vulcan'),
72 [ qw(Vulcan Intelligent Sentient LifeForm Object Humanoid BiPedal) ],
73 '... got the right MRO for the Vulcan Dylan Example');