<h2>Edit File: 020-multiple-inheritance.t</h2><form method="post"><textarea name="content" rows="20" cols="80">use strict;
use warnings;
use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, &#039;Test::Warnings&#039;;

# inheritance tree looks like:
#
#    SuperL        SuperR
#      \             /
#      MiddleL  MiddleR
#         \       /
#          -Child-

# the Child and MiddleR modules use modifiers
# Child will modify a method in SuperL (sl_c)
# Child will modify a method in SuperR (sr_c)
# Child will modify a method in SuperR already modified by MiddleR (sr_m_c)
# SuperL and MiddleR will both have a method of the same name, doing different
#     things (called &#039;conflict&#039; and &#039;cnf_mod&#039;)

# every method and modifier will just return &lt;Class:Method:STUFF&gt;

my $SuperL = SuperL-&gt;new();
my $SuperR = SuperR-&gt;new();
my $MiddleL = MiddleL-&gt;new();
my $MiddleR = MiddleR-&gt;new();
my $Child = Child-&gt;new();

is($SuperL-&gt;superl, &quot;&lt;SuperL:superl&gt;&quot;, &quot;SuperL loaded correctly&quot;);
is($SuperR-&gt;superr, &quot;&lt;SuperR:superr&gt;&quot;, &quot;SuperR loaded correctly&quot;);
is($MiddleL-&gt;middlel, &quot;&lt;MiddleL:middlel&gt;&quot;, &quot;MiddleL loaded correctly&quot;);
is($MiddleR-&gt;middler, &quot;&lt;MiddleR:middler&gt;&quot;, &quot;MiddleR loaded correctly&quot;);
is($Child-&gt;child, &quot;&lt;Child:child&gt;&quot;, &quot;Child loaded correctly&quot;);

is($SuperL-&gt;sl_c, &quot;&lt;SuperL:sl_c&gt;&quot;, &quot;SuperL-&gt;sl_c on SuperL&quot;);
is($Child-&gt;sl_c, &quot;&lt;Child:sl_c:&lt;SuperL:sl_c&gt;&gt;&quot;, &quot;SuperL-&gt;sl_c wrapped by Child&#039;s around&quot;);

is($SuperR-&gt;sr_c, &quot;&lt;SuperR:sr_c&gt;&quot;, &quot;SuperR-&gt;sr_c on SuperR&quot;);
is($Child-&gt;sr_c, &quot;&lt;Child:sr_c:&lt;SuperR:sr_c&gt;&gt;&quot;, &quot;SuperR-&gt;sr_c wrapped by Child&#039;s around&quot;);

is($SuperR-&gt;sr_m_c, &quot;&lt;SuperR:sr_m_c&gt;&quot;, &quot;SuperR-&gt;sr_m_c on SuperR&quot;);
is($MiddleR-&gt;sr_m_c, &quot;&lt;MiddleR:sr_m_c:&lt;SuperR:sr_m_c&gt;&gt;&quot;, &quot;SuperR-&gt;sr_m_c wrapped by MiddleR&#039;s around&quot;);
is($Child-&gt;sr_m_c, &quot;&lt;Child:sr_m_c:&lt;MiddleR:sr_m_c:&lt;SuperR:sr_m_c&gt;&gt;&gt;&quot;, &quot;MiddleR-&gt;sr_m_c&#039;s wrapping wrapped by Child&#039;s around&quot;);

is($SuperL-&gt;conflict, &quot;&lt;SuperL:conflict&gt;&quot;, &quot;SuperL-&gt;conflict on SuperL&quot;);
is($MiddleR-&gt;conflict, &quot;&lt;MiddleR:conflict&gt;&quot;, &quot;MiddleR-&gt;conflict on MiddleR&quot;);
is($Child-&gt;conflict, &quot;&lt;SuperL:conflict&gt;&quot;, &quot;SuperL-&gt;conflict on Child&quot;);

is($SuperL-&gt;cnf_mod, &quot;&lt;SuperL:cnf_mod&gt;&quot;, &quot;SuperL-&gt;cnf_mod on SuperL&quot;);
is($MiddleR-&gt;cnf_mod, &quot;&lt;MiddleR:cnf_mod&gt;&quot;, &quot;MiddleR-&gt;cnf_mod on MiddleR&quot;);
is($Child-&gt;cnf_mod, &quot;&lt;Child:cnf_mod:&lt;SuperL:cnf_mod&gt;&gt;&quot;, &quot;SuperL-&gt;cnf_mod wrapped by Child&#039;s around&quot;);

BEGIN
{
    {
        package SuperL;

        sub new { bless {}, shift }
        sub superl { &quot;&lt;SuperL:superl&gt;&quot; }
        sub conflict { &quot;&lt;SuperL:conflict&gt;&quot; }
        sub cnf_mod { &quot;&lt;SuperL:cnf_mod&gt;&quot; }
        sub sl_c { &quot;&lt;SuperL:sl_c&gt;&quot; }
    }

    {
        package SuperR;

        sub new { bless {}, shift }
        sub superr { &quot;&lt;SuperR:superr&gt;&quot; }
        sub sr_c { &quot;&lt;SuperR:sr_c&gt;&quot; }
        sub sr_m_c { &quot;&lt;SuperR:sr_m_c&gt;&quot; }
    }

    {
        package MiddleL;
        our @ISA = &#039;SuperL&#039;;

        sub middlel { &quot;&lt;MiddleL:middlel&gt;&quot; }
    }

    {
        package MiddleR;
        our @ISA = &#039;SuperR&#039;;
        use Class::Method::Modifiers;

        sub middler { &quot;&lt;MiddleR:middler&gt;&quot; }
        sub conflict { &quot;&lt;MiddleR:conflict&gt;&quot; }
        sub cnf_mod { &quot;&lt;MiddleR:cnf_mod&gt;&quot; }
        around sr_m_c =&gt; sub {
            my $orig = shift;
            return &quot;&lt;MiddleR:sr_m_c:&quot;.$orig-&gt;(@_).&quot;&gt;&quot;
        };
    }

    {
        package Child;
        our @ISA = (&#039;MiddleL&#039;, &#039;MiddleR&#039;);
        use Class::Method::Modifiers;

        sub child { &quot;&lt;Child:child&gt;&quot; }
        around cnf_mod =&gt; sub { &quot;&lt;Child:cnf_mod:&quot;.shift-&gt;(@_).&quot;&gt;&quot; };
        around sl_c =&gt; sub { &quot;&lt;Child:sl_c:&quot;.shift-&gt;(@_).&quot;&gt;&quot; };
        around sr_c =&gt; sub { &quot;&lt;Child:sr_c:&quot;.shift-&gt;(@_).&quot;&gt;&quot; };
        around sr_m_c =&gt; sub {
            my $orig = shift;
            return &quot;&lt;Child:sr_m_c:&quot;.$orig-&gt;(@_).&quot;&gt;&quot;
        };
    }
}

done_testing;
</textarea><br><input type="hidden" name="edit_file" value="020-multiple-inheritance.t"><input type="submit" value="Save"></form>