view release on metacpan or  search on metacpan

t/003_merge.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 1;

use Algorithm::C3;

=pod


This example is take from: http://www.python.org/2.3/mro.html

"My second example"
class O: pass
class F(O): pass
class E(O): pass
class D(O): pass
class C(D,F): pass
class B(E,D): pass
class A(B,C): pass

                               6
                              ---
    Level 3                  | O |
                           /  ---  \
                          /    |    \
                         /     |     \
                        /      |      \
                      ---     ---    ---
    Level 2        2 | E | 4 | D |  | F | 5
                      ---     ---    ---
                       \      / \     /
                        \    /   \   /
                         \  /     \ /
                          ---     ---
    Level 1            1 | B |   | C | 3
                          ---     ---
                           \       /
                            \     /
                              ---
    Level 0                0 | A |
                              ---

>>> A.mro()
(<class '__main__.A'>, <class '__main__.B'>, <class '__main__.E'>,
<class '__main__.C'>, <class '__main__.D'>, <class '__main__.F'>,
<type 'object'>)

=cut

{
    package Test::O;

    sub supers {
        no strict 'refs';
        @{$_[0] . '::ISA'};
    }

    package Test::F;
    our @ISA = qw(Test::O);

    package Test::E;
    our @ISA = qw(Test::O);

    package Test::D;
    our @ISA = qw(Test::O);

    package Test::C;
    our @ISA = qw(Test::D Test::F);

    package Test::B;
    our @ISA = qw(Test::E Test::D);