<h2>Edit File: 100-class-mop-method-modifiers.t</h2><form method="post"><textarea name="content" rows="20" cols="80">
# taken from Class::MOP&#039;s test suite, cut down to the interesting bits I haven&#039;t
# necessarily tested yet

use strict;
use warnings;

use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, &#039;Test::Warnings&#039;;
my @tracelog;

package GreatGrandMyParent;
sub new { bless {}, shift }
sub method { 4 }
sub wrapped { push @tracelog =&gt; &#039;primary&#039; }

package GrandMyParent;
use Class::Method::Modifiers;
our @ISA = &#039;GreatGrandMyParent&#039;;
around method =&gt; sub { (3, $_[0]-&gt;()) };

package MyParent;
use Class::Method::Modifiers;
our @ISA = &#039;GrandMyParent&#039;;
around method =&gt; sub { (2, $_[0]-&gt;()) };

package Child;
use Class::Method::Modifiers;
our @ISA = &#039;MyParent&#039;;
around method =&gt; sub { (1, $_[0]-&gt;()) };

package GrandChild;
use Class::Method::Modifiers;
our @ISA = &#039;Child&#039;;
around method =&gt; sub { (0, $_[0]-&gt;()) };

before wrapped =&gt; sub { push @tracelog =&gt; &#039;before 1&#039; };
before wrapped =&gt; sub { push @tracelog =&gt; &#039;before 2&#039; };
before wrapped =&gt; sub { push @tracelog =&gt; &#039;before 3&#039; };

around wrapped =&gt; sub { push @tracelog =&gt; &#039;around 1&#039;; $_[0]-&gt;() };
around wrapped =&gt; sub { push @tracelog =&gt; &#039;around 2&#039;; $_[0]-&gt;() };
around wrapped =&gt; sub { push @tracelog =&gt; &#039;around 3&#039;; $_[0]-&gt;() };

after wrapped =&gt; sub { push @tracelog =&gt; &#039;after 1&#039; };
after wrapped =&gt; sub { push @tracelog =&gt; &#039;after 2&#039; };
after wrapped =&gt; sub { push @tracelog =&gt; &#039;after 3&#039; };

package main;

my $gc = GrandChild-&gt;new();
is_deeply(
    [ $gc-&gt;method() ],
    [ 0, 1, 2, 3, 4 ],
    &#039;... got the right results back from the around methods (in list context)&#039;);

is(scalar $gc-&gt;method(), 4, &#039;... got the right results back from the around methods (in scalar context)&#039;);

$gc-&gt;wrapped();
is_deeply(
    \@tracelog,
    [
        &#039;before 3&#039;, &#039;before 2&#039;, &#039;before 1&#039;,  # last-in-first-out order
        &#039;around 3&#039;, &#039;around 2&#039;, &#039;around 1&#039;,  # last-in-first-out order
        &#039;primary&#039;,
        &#039;after 1&#039;, &#039;after 2&#039;, &#039;after 3&#039;,     # first-in-first-out order
    ],
    &#039;... got the right tracelog from all our before/around/after methods&#039;);


done_testing;
</textarea><br><input type="hidden" name="edit_file" value="100-class-mop-method-modifiers.t"><input type="submit" value="Save"></form>