Adding better attribute/method metaclass handling
[gitmo/Class-MOP.git] / t / 102_InsideOutClass_test.t
index fb7581e..7aae76c 100644 (file)
@@ -14,7 +14,11 @@ BEGIN {
 {
     package Foo;
     
-    sub meta { InsideOutClass->initialize($_[0]) }
+    sub meta { 
+        InsideOutClass->initialize($_[0] => (
+          ':attribute_metaclass' => 'InsideOutClass::Attribute'
+        )) 
+    }
     
     Foo->meta->add_attribute('foo' => (
         accessor  => 'foo',