method modifiers for roles

[gitmo/Moo.git] / xt / moose-method-modifiers.t

diff --git a/xt/moose-method-modifiers.t b/xt/moose-method-modifiers.t
index 5a6b796..2d49a8b 100644 (file)
--- a/xt/moose-method-modifiers.t
+++ b/xt/moose-method-modifiers.t
@@ -16,7 +16,7 @@ use Moo::HandleMoose;
    around foo => sub {
       my ($orig, $self, @rest) = @_;
       $self->$orig(@rest);
-      $after_ran = 1;
+      $around_ran = 1;
    };
 
    package Bar;