1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!./perl
use strict;
use warnings;
use utf8;
use open qw( :utf8 :std );
require q(./test.pl); plan(tests => 1);
=pod
example taken from: L<http://www.opendylan.org/books/drm/Method_Dispatch>
옵젳Ṯ
^
|
ᓕᵮꡠＦᚖᶭ
^ ^
/ \
SㄣチenŦ 빞엗ᱞ
^ ^
| |
ᕟ텔li겐ț Hʉ만ӫ읻
^ ^
\ /
ቩᓪ찬
define class <SㄣチenŦ> (<life-form>) end class;
define class <빞엗ᱞ> (<life-form>) end class;
define class <ᕟ텔li겐ț> (<SㄣチenŦ>) end class;
define class <Hʉ만ӫ읻> (<빞엗ᱞ>) end class;
define class <ቩᓪ찬> (<ᕟ텔li겐ț>, <Hʉ만ӫ읻>) end class;
=cut
{
package 옵젳Ṯ;
use mro 'dfs';
package ᓕᵮꡠＦᚖᶭ;
use mro 'dfs';
use base '옵젳Ṯ';
package SㄣチenŦ;
use mro 'dfs';
use base 'ᓕᵮꡠＦᚖᶭ';
package 빞엗ᱞ;
use mro 'dfs';
use base 'ᓕᵮꡠＦᚖᶭ';
package ᕟ텔li겐ț;
use mro 'dfs';
use base 'SㄣチenŦ';
package Hʉ만ӫ읻;
use mro 'dfs';
use base '빞엗ᱞ';
package ቩᓪ찬;
use mro 'dfs';
use base ('ᕟ텔li겐ț', 'Hʉ만ӫ읻');
}
ok(eq_array(
mro::get_linear_isa('ቩᓪ찬'),
[ qw(ቩᓪ찬 ᕟ텔li겐ț SㄣチenŦ ᓕᵮꡠＦᚖᶭ 옵젳Ṯ Hʉ만ӫ읻 빞엗ᱞ) ]
), '... got the right MRO for the ቩᓪ찬 Dylan Example');
|
