Florian Ragwitz
/
perl-5.17.4
/
t/mro/vulcan_dfs.t
example taken from: http://www.opendylan.org/books/drm/Method_Dispatch
Object
^
|
LifeForm
^ ^
/ \
Sentient BiPedal
^ ^
| |
Intelligent Humanoid
^ ^
\ /
Vulcan
define class <sentient> (<life-form>) end class;
define class <bipedal> (<life-form>) end class;
define class <intelligent> (<sentient>) end class;
define class <humanoid> (<bipedal>) end class;
define class <vulcan> (<intelligent>, <humanoid>) end class;