X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F047-attribute-metaclass-role.t;h=7dbb2de8b573298f83e687882dd573d65eb5044d;hb=a497c7d3c518bbecf930e3f17d7a75b9bf84fa2f;hp=db28fc695df8f6c7e77e153d2a273fb16e7e2f44;hpb=05b9dc92e107117921170e662967d5d2101db21b;p=gitmo%2FMouse.git

diff --git a/t/047-attribute-metaclass-role.t b/t/047-attribute-metaclass-role.t
index db28fc6..7dbb2de 100644
--- a/t/047-attribute-metaclass-role.t
+++ b/t/047-attribute-metaclass-role.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 {