Don't use a method modifier in a test, since they may not be available
Shawn M Moore [Sun, 8 Mar 2009 07:16:47 +0000 (03:16 -0400)]
t/044-attribute-metaclass.t

index bd9ca8f..e0d4e07 100644 (file)
@@ -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 {