Commit | Line | Data |
10736f68 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More tests => 2; |
7 | |
8 | BEGIN { |
9 | use_ok('Algorithm::C3'); |
10 | } |
11 | |
12 | =pod |
13 | |
14 | This example is taken from the inheritance graph of DBIx::Class::Core in DBIx::Class v0.07002: |
15 | (No ASCII art this time, this graph is insane) |
16 | |
17 | The xx:: prefixes are just to be sure these bogus declarations never stomp on real ones |
18 | |
19 | =cut |
20 | |
21 | { |
22 | package xx::DBIx::Class::Core; |
23 | our @ISA = qw/ |
24 | xx::DBIx::Class::Serialize::Storable |
25 | xx::DBIx::Class::InflateColumn |
26 | xx::DBIx::Class::Relationship |
27 | xx::DBIx::Class::PK::Auto |
28 | xx::DBIx::Class::PK |
29 | xx::DBIx::Class::Row |
30 | xx::DBIx::Class::ResultSourceProxy::Table |
31 | xx::DBIx::Class::AccessorGroup |
32 | /; |
33 | |
34 | package xx::DBIx::Class::InflateColumn; |
35 | our @ISA = qw/ xx::DBIx::Class::Row /; |
36 | |
37 | package xx::DBIx::Class::Row; |
38 | our @ISA = qw/ xx::DBIx::Class /; |
39 | |
40 | package xx::DBIx::Class; |
41 | our @ISA = qw/ |
42 | xx::DBIx::Class::Componentised |
43 | xx::Class::Data::Accessor |
44 | /; |
45 | |
46 | package xx::DBIx::Class::Relationship; |
47 | our @ISA = qw/ |
48 | xx::DBIx::Class::Relationship::Helpers |
49 | xx::DBIx::Class::Relationship::Accessor |
50 | xx::DBIx::Class::Relationship::CascadeActions |
51 | xx::DBIx::Class::Relationship::ProxyMethods |
52 | xx::DBIx::Class::Relationship::Base |
53 | xx::DBIx::Class |
54 | /; |
55 | |
56 | package xx::DBIx::Class::Relationship::Helpers; |
57 | our @ISA = qw/ |
58 | xx::DBIx::Class::Relationship::HasMany |
59 | xx::DBIx::Class::Relationship::HasOne |
657499e7 |
60 | xx::DBIx::Class::Relationship::BelongsTo |
61 | xx::DBIx::Class::Relationship::ManyToMany |
10736f68 |
62 | /; |
63 | |
64 | package xx::DBIx::Class::Relationship::ProxyMethods; |
65 | our @ISA = qw/ xx::DBIx::Class /; |
66 | |
67 | package xx::DBIx::Class::Relationship::Base; |
68 | our @ISA = qw/ xx::DBIx::Class /; |
69 | |
70 | package xx::DBIx::Class::PK::Auto; |
71 | our @ISA = qw/ xx::DBIx::Class /; |
72 | |
73 | package xx::DBIx::Class::PK; |
74 | our @ISA = qw/ xx::DBIx::Class::Row /; |
75 | |
76 | package xx::DBIx::Class::ResultSourceProxy::Table; |
77 | our @ISA = qw/ |
78 | xx::DBIx::Class::AccessorGroup |
79 | xx::DBIx::Class::ResultSourceProxy |
80 | /; |
81 | |
82 | package xx::DBIx::Class::ResultSourceProxy; |
83 | our @ISA = qw/ xx::DBIx::Class /; |
84 | |
85 | package xx::Class::Data::Accessor; our @ISA = (); |
86 | package xx::DBIx::Class::Relationship::HasMany; our @ISA = (); |
87 | package xx::DBIx::Class::Relationship::HasOne; our @ISA = (); |
88 | package xx::DBIx::Class::Relationship::BelongsTo; our @ISA = (); |
89 | package xx::DBIx::Class::Relationship::ManyToMany; our @ISA = (); |
90 | package xx::DBIx::Class::Componentised; our @ISA = (); |
91 | package xx::DBIx::Class::AccessorGroup; our @ISA = (); |
92 | package xx::DBIx::Class::Serialize::Storable; our @ISA = (); |
93 | package xx::DBIx::Class::Relationship::Accessor; our @ISA = (); |
94 | package xx::DBIx::Class::Relationship::CascadeActions; our @ISA = (); |
95 | } |
96 | |
97 | sub supers { |
98 | no strict 'refs'; |
99 | @{$_[0] . '::ISA'}; |
100 | } |
101 | |
102 | is_deeply( |
103 | [ Algorithm::C3::merge('xx::DBIx::Class::Core', \&supers) ], |
104 | [qw/ |
105 | xx::DBIx::Class::Core |
106 | xx::DBIx::Class::Serialize::Storable |
107 | xx::DBIx::Class::InflateColumn |
108 | xx::DBIx::Class::Relationship |
109 | xx::DBIx::Class::Relationship::Helpers |
110 | xx::DBIx::Class::Relationship::HasMany |
111 | xx::DBIx::Class::Relationship::HasOne |
112 | xx::DBIx::Class::Relationship::BelongsTo |
113 | xx::DBIx::Class::Relationship::ManyToMany |
114 | xx::DBIx::Class::Relationship::Accessor |
115 | xx::DBIx::Class::Relationship::CascadeActions |
116 | xx::DBIx::Class::Relationship::ProxyMethods |
117 | xx::DBIx::Class::Relationship::Base |
118 | xx::DBIx::Class::PK::Auto |
119 | xx::DBIx::Class::PK |
120 | xx::DBIx::Class::Row |
121 | xx::DBIx::Class::ResultSourceProxy::Table |
122 | xx::DBIx::Class::AccessorGroup |
123 | xx::DBIx::Class::ResultSourceProxy |
124 | xx::DBIx::Class |
125 | xx::DBIx::Class::Componentised |
126 | xx::Class::Data::Accessor |
127 | /], |
128 | '... got the right C3 merge order for DBIx::Class::Core'); |