X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F044-attribute-metaclass.t;h=e0d4e072440304fe30adc2f5dcd1ef87eb071184;hb=73766a27db7dcd127e0397d83186dadfcda398a9;hp=bd9ca8fc06b6c6846f9b0e03fc1cb7c87d0d2bf1;hpb=abfdffe0146e788b3b808398fb075231163c3948;p=gitmo%2FMouse.git

diff --git a/t/044-attribute-metaclass.t b/t/044-attribute-metaclass.t
index bd9ca8f..e0d4e07 100644
--- a/t/044-attribute-metaclass.t
+++ b/t/044-attribute-metaclass.t
@@ -9,9 +9,9 @@ do {
     use Mouse;
     extends 'Mouse::Meta::Attribute';
 
-    around 'create' => sub {
-        my ($next, @args) = @_;
-        my $attr = $next->(@args);
+    sub create {
+        my ($self, @args) = @_;
+        my $attr = $self->SUPER::create(@args);
         my %provides = %{$attr->{provides}};
         my $method_constructors = {
             add => sub {