Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
basic.t	9.74 KB	-r--r--r--	2014-12-27 11:49
basic_01_c3.t	932 B	-r--r--r--	2014-12-27 11:49
basic_01_c3_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_01_dfs.t	933 B	-r--r--r--	2014-12-27 11:49
basic_01_dfs_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_02_c3.t	3.09 KB	-r--r--r--	2014-12-27 11:49
basic_02_c3_utf8.t	3.32 KB	-r--r--r--	2014-12-27 11:49
basic_02_dfs.t	3.1 KB	-r--r--r--	2014-12-27 11:49
basic_02_dfs_utf8.t	3.32 KB	-r--r--r--	2014-12-27 11:49
basic_03_c3.t	2.37 KB	-r--r--r--	2014-12-27 11:49
basic_03_c3_utf8.t	2.55 KB	-r--r--r--	2014-12-27 11:49
basic_03_dfs.t	2.37 KB	-r--r--r--	2014-12-27 11:49
basic_03_dfs_utf8.t	2.56 KB	-r--r--r--	2014-12-27 11:49
basic_04_c3.t	705 B	-r--r--r--	2014-12-27 11:49
basic_04_c3_utf8.t	839 B	-r--r--r--	2014-12-27 11:49
basic_04_dfs.t	711 B	-r--r--r--	2014-12-27 11:49
basic_04_dfs_utf8.t	858 B	-r--r--r--	2014-12-27 11:49
basic_05_c3.t	959 B	-r--r--r--	2014-12-27 11:49
basic_05_c3_utf8.t	1.05 KB	-r--r--r--	2014-12-27 11:49
basic_05_dfs.t	945 B	-r--r--r--	2014-12-27 11:49
basic_05_dfs_utf8.t	1.04 KB	-r--r--r--	2014-12-27 11:49
basic_utf8.t	8.63 KB	-r--r--r--	2014-12-27 11:49
c3_with_overload.t	1.13 KB	-r--r--r--	2014-12-27 11:49
c3_with_overload_utf8.t	1.13 KB	-r--r--r--	2014-12-27 11:49
complex_c3.t	4.03 KB	-r--r--r--	2014-12-27 11:49
complex_c3_utf8.t	4.44 KB	-r--r--r--	2014-12-27 11:49
complex_dfs.t	3.89 KB	-r--r--r--	2014-12-27 11:49
complex_dfs_utf8.t	4.3 KB	-r--r--r--	2014-12-27 11:49
dbic_c3.t	4.05 KB	-r--r--r--	2014-12-27 11:49
dbic_c3_utf8.t	5.07 KB	-r--r--r--	2014-12-27 11:49
dbic_dfs.t	4.08 KB	-r--r--r--	2014-12-27 11:49
dbic_dfs_utf8.t	5.1 KB	-r--r--r--	2014-12-27 11:49
inconsistent_c3.t	870 B	-r--r--r--	2014-12-27 11:49
inconsistent_c3_utf8.t	888 B	-r--r--r--	2014-12-27 11:49
isa_aliases.t	1.51 KB	-r--r--r--	2014-12-27 11:49
isa_aliases_utf8.t	1.46 KB	-r--r--r--	2014-12-27 11:49
isa_c3.t	1.28 KB	-r--r--r--	2014-12-27 11:49
isa_c3_utf8.t	1.31 KB	-r--r--r--	2014-12-27 11:49
isa_dfs.t	1.06 KB	-r--r--r--	2014-12-27 11:49
isa_dfs_utf8.t	1.24 KB	-r--r--r--	2014-12-27 11:49
isarev.t	4.71 KB	-r--r--r--	2014-12-27 11:49
isarev_utf8.t	5.39 KB	-r--r--r--	2014-12-27 11:49
method_caching.t	5.31 KB	-r--r--r--	2014-12-27 11:49
method_caching_utf8.t	3.79 KB	-r--r--r--	2014-12-27 11:49
next_NEXT.t	1012 B	-r--r--r--	2014-12-27 11:49
next_NEXT_utf8.t	1.07 KB	-r--r--r--	2014-12-27 11:49
next_edgecases.t	2.01 KB	-r--r--r--	2014-12-27 11:49
next_edgecases_utf8.t	2.05 KB	-r--r--r--	2014-12-27 11:49
next_goto.t	856 B	-r--r--r--	2014-12-27 11:49
next_goto_utf8.t	953 B	-r--r--r--	2014-12-27 11:49
next_inanon.t	889 B	-r--r--r--	2014-12-27 11:49
next_inanon_utf8.t	972 B	-r--r--r--	2014-12-27 11:49
next_ineval.t	561 B	-r--r--r--	2014-12-27 11:49
next_ineval_utf8.t	629 B	-r--r--r--	2014-12-27 11:49
next_method.t	1.49 KB	-r--r--r--	2014-12-27 11:49
next_method_utf8.t	1.59 KB	-r--r--r--	2014-12-27 11:49
next_skip.t	2.43 KB	-r--r--r--	2014-12-27 11:49
next_skip_utf8.t	2.75 KB	-r--r--r--	2014-12-27 11:49
overload_c3.t	1.22 KB	-r--r--r--	2014-12-27 11:49
overload_c3_utf8.t	1.4 KB	-r--r--r--	2014-12-27 11:49
overload_dfs.t	1.22 KB	-r--r--r--	2014-12-27 11:49
package_aliases.t	11.02 KB	-r--r--r--	2014-12-27 11:49
package_aliases_utf8.t	12.86 KB	-r--r--r--	2014-12-27 11:49
pkg_gen.t	908 B	-r--r--r--	2014-12-27 11:49
pkg_gen_utf8.t	964 B	-r--r--r--	2014-12-27 11:49
recursion_c3.t	2.11 KB	-r--r--r--	2014-12-27 11:49
recursion_c3_utf8.t	2.24 KB	-r--r--r--	2014-12-27 11:49
recursion_dfs.t	1.9 KB	-r--r--r--	2014-12-27 11:49
recursion_dfs_utf8.t	2.03 KB	-r--r--r--	2014-12-27 11:49
vulcan_c3.t	1.3 KB	-r--r--r--	2014-12-27 11:49
vulcan_c3_utf8.t	1.49 KB	-r--r--r--	2014-12-27 11:49
vulcan_dfs.t	1.31 KB	-r--r--r--	2014-12-27 11:49
vulcan_dfs_utf8.t	1.48 KB	-r--r--r--	2014-12-27 11:49

Rename

#!./perl

use strict;
use warnings;

require q(./test.pl); plan(tests => 11);

=pod

This example is taken from: http://rt.cpan.org/Public/Bug/Display.html?id=20879

---     ---     ---
Level 5     8 | A | 9 | B | A | C |    (More General)
               ---     ---     ---       V
                  \     |     /          |
                   \    |    /           |
                    \   |   /            |
                     \  |  /             |
                       ---               |
Level 4             7 | D |              |
                       ---               |
                      /   \              |
                     /     \             |
                  ---       ---          |
Level 3        4 | G |   6 | E |         |
                  ---       ---          |
                   |         |           |
                   |         |           |
                  ---       ---          |
Level 2        3 | H |   5 | F |         |
                  ---       ---          |
                      \   /  |           |
                       \ /   |           |
                        \    |           |
                       / \   |           |
                      /   \  |           |
                  ---       ---          |
Level 1        1 | J |   2 | I |         |
                  ---       ---          |
                    \       /            |
                     \     /             |
                       ---               v
Level 0             0 | K |            (More Specialized)
                       ---

0123456789A
KJIHGFEDABC

=cut

{
    package Test::A; use mro 'dfs';

package Test::B; use mro 'dfs';

package Test::C; use mro 'dfs';

package Test::D; use mro 'dfs';
    use base qw/Test::A Test::B Test::C/;

package Test::E; use mro 'dfs';
    use base qw/Test::D/;

package Test::F; use mro 'dfs';
    use base qw/Test::E/;

package Test::G; use mro 'dfs';
    use base qw/Test::D/;

package Test::H; use mro 'dfs';
    use base qw/Test::G/;

package Test::I; use mro 'dfs';
    use base qw/Test::H Test::F/;

package Test::J; use mro 'dfs';
    use base qw/Test::F/;

package Test::K; use mro 'dfs';
    use base qw/Test::J Test::I/;
}

ok(eq_array(
    mro::get_linear_isa('Test::A'),
    [ qw(Test::A) ]
), '... got the right DFS merge order for Test::A');

ok(eq_array(
    mro::get_linear_isa('Test::B'),
    [ qw(Test::B) ]
), '... got the right DFS merge order for Test::B');

ok(eq_array(
    mro::get_linear_isa('Test::C'),
    [ qw(Test::C) ]
), '... got the right DFS merge order for Test::C');

ok(eq_array(
    mro::get_linear_isa('Test::D'),
    [ qw(Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::D');

ok(eq_array(
    mro::get_linear_isa('Test::E'),
    [ qw(Test::E Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::E');

ok(eq_array(
    mro::get_linear_isa('Test::F'),
    [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::F');

ok(eq_array(
    mro::get_linear_isa('Test::G'),
    [ qw(Test::G Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::G');

ok(eq_array(
    mro::get_linear_isa('Test::H'),
    [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::H');

ok(eq_array(
    mro::get_linear_isa('Test::I'),
    [ qw(Test::I Test::H Test::G Test::D Test::A Test::B Test::C Test::F Test::E) ]
), '... got the right DFS merge order for Test::I');

ok(eq_array(
    mro::get_linear_isa('Test::J'),
    [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ]
), '... got the right DFS merge order for Test::J');

ok(eq_array(
    mro::get_linear_isa('Test::K'),
    [ qw(Test::K Test::J Test::F Test::E Test::D Test::A Test::B Test::C Test::I Test::H Test::G) ]
), '... got the right DFS merge order for Test::K');