use Moo::HandleMoose;
{
- package FooAttr;
+ package ModifyFoo;
use Moo::Role;
our $before_ran = 0;
around foo => sub {
my ($orig, $self, @rest) = @_;
$self->$orig(@rest);
- $after_ran = 1;
+ $around_ran = 1;
};
package Bar;
use Moose;
- with 'FooAttr';
+ with 'ModifyFoo';
sub foo { }
}