yeah-it-works

diff --git a/TODO b/TODO
index 7fbd151..d1d2e3d 100644 (file)
--- a/TODO
+++ b/TODO
@@ -11,6 +11,11 @@ when we add it in, to make sure we don't break weird stuff.
 
 mugwump was working on this ...
 
+- do not bless methods unless asked
+
+We should turn off automagic method blessing for classes which are 
+not explictly asking for a metaclass.
+
 ---------------------------------------------------------------------
 EXAMPLES TO WRITE
 ---------------------------------------------------------------------

diff --git a/t/108_ArrayBasedStorage_test.t b/t/108_ArrayBasedStorage_test.t
index 74bc438..a7b24e9 100644 (file)
--- a/t/108_ArrayBasedStorage_test.t
+++ b/t/108_ArrayBasedStorage_test.t
@@ -17,6 +17,7 @@ BEGIN {
     use strict;
     use warnings;    
     use metaclass (
+        ':attribute_metaclass' => 'ArrayBasedStorage::Attribute',
         ':instance_metaclass'  => 'ArrayBasedStorage::Instance',
     );
     
@@ -53,6 +54,7 @@ BEGIN {
     use strict;
     use warnings;
     use metaclass (
+        ':attribute_metaclass' => 'ArrayBasedStorage::Attribute',        
         ':instance_metaclass'  => 'ArrayBasedStorage::Instance',
     );