<h2>Edit File: 080-multiple-modifiers.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 @seen;

my @expected = qw/ before
                   around-before
                       orig
                   around-after
                   after         /;

my $child = Child-&gt;new();
$child-&gt;orig();
is_deeply(\@seen, \@expected, &quot;multiple modifiers in one class&quot;);

@seen = ();
@expected = qw/ beforer around-beforer
                before  around-before
                orig
                around-after after
                around-afterer afterer /;

my $childer = Childer-&gt;new();
$childer-&gt;orig();
is_deeply(\@seen, \@expected, &quot;multiple modifiers subclassed with multiple modifiers&quot;);

BEGIN
{
    package MyParent;
    sub new { bless {}, shift }
    sub orig
    {
        push @seen, &#039;orig&#039;;
    }
}

BEGIN
{
    package Child;
    our @ISA = &#039;MyParent&#039;;
    use Class::Method::Modifiers;

    after &#039;orig&#039; =&gt; sub
    {
        push @seen, &#039;after&#039;;
    };

    around &#039;orig&#039; =&gt; sub
    {
        my $orig = shift;
        push @seen, &#039;around-before&#039;;
        $orig-&gt;();
        push @seen, &#039;around-after&#039;;
    };

    before &#039;orig&#039; =&gt; sub
    {
        push @seen, &#039;before&#039;;
    };
}

BEGIN
{
    package Childer;
    our @ISA = &#039;Child&#039;;
    use Class::Method::Modifiers;

    after &#039;orig&#039; =&gt; sub
    {
        push @seen, &#039;afterer&#039;;
    };

    around &#039;orig&#039; =&gt; sub
    {
        my $orig = shift;
        push @seen, &#039;around-beforer&#039;;
        $orig-&gt;();
        push @seen, &#039;around-afterer&#039;;
    };

    before &#039;orig&#039; =&gt; sub
    {
        push @seen, &#039;beforer&#039;;
    };
}

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