X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoose-method-modifiers.t;h=2d49a8bfb201bb7e64e1b0c50abb5d9951f9a472;hb=ac0a2c9a69abe7b83dd18e86b0bff0b7d6e17053;hp=af9492d67ea3dfd01ba6ae8caf14eee5d06472be;hpb=89e9bce8367ed666bf20ccae7a32b8ee77ecab2d;p=gitmo%2FMoo.git diff --git a/xt/moose-method-modifiers.t b/xt/moose-method-modifiers.t index af9492d..2d49a8b 100644 --- a/xt/moose-method-modifiers.t +++ b/xt/moose-method-modifiers.t @@ -16,11 +16,12 @@ use Moo::HandleMoose; around foo => sub { my ($orig, $self, @rest) = @_; $self->$orig(@rest); - $after_ran = 1; + $around_ran = 1; }; package Bar; use Moose; + with 'ModifyFoo'; sub foo { } }