package CMMChild::Before;
use Class::Method::Modifiers;
use base 'PlainParent';
-
+
before method => sub { "B" };
}
{
package CMMChild::Around;
use Class::Method::Modifiers;
use base 'PlainParent';
-
+
around method => sub { shift->() . "A" };
}
{
package CMMChild::AllThree;
use Class::Method::Modifiers;
use base 'PlainParent';
-
+
before method => sub { "B" };
around method => sub { shift->() . "A" };
after method => sub { "Z" };