<h2>Edit File: 003-basic.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;;

my @calls;

do {
    package MyParent;
    use Class::Method::Modifiers;

    sub original { push @calls, &#039;MyParent::original&#039; }
    before original =&gt; sub { push @calls, &#039;before MyParent::original&#039; };
    after  original =&gt; sub { push @calls, &#039;after MyParent::original&#039; };
};

MyParent-&gt;original;
is_deeply([splice @calls], [
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
]);

do {
    package MyParent;
    use Class::Method::Modifiers;

    before original =&gt; sub { push @calls, &#039;before before MyParent::original&#039; };
    after  original =&gt; sub { push @calls, &#039;after after MyParent::original&#039; };
};

MyParent-&gt;original;
is_deeply([splice @calls], [
    &#039;before before MyParent::original&#039;,
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
    &#039;after after MyParent::original&#039;,
]);

do {
    package Child;
    BEGIN { our @ISA = &#039;MyParent&#039; }
};

MyParent-&gt;original;
is_deeply([splice @calls], [
    &#039;before before MyParent::original&#039;,
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
    &#039;after after MyParent::original&#039;,
]);

Child-&gt;original;
is_deeply([splice @calls], [
    &#039;before before MyParent::original&#039;,
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
    &#039;after after MyParent::original&#039;,
]);

do {
    package Child;
    use Class::Method::Modifiers;

    before original =&gt; sub { push @calls, &#039;before Child::original&#039; };
    after  original =&gt; sub { push @calls, &#039;after Child::original&#039; };
};

MyParent-&gt;original;
is_deeply([splice @calls], [
    &#039;before before MyParent::original&#039;,
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
    &#039;after after MyParent::original&#039;,
]);

Child-&gt;original;
is_deeply([splice @calls], [
    &#039;before Child::original&#039;,
    &#039;before before MyParent::original&#039;,
    &#039;before MyParent::original&#039;,
    &#039;MyParent::original&#039;,
    &#039;after MyParent::original&#039;,
    &#039;after after MyParent::original&#039;,
    &#039;after Child::original&#039;,
]);

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