fixing minor meta-circularity issue

diff --git a/Changes b/Changes
index 12d3320..07c3f64 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,14 @@
 Revision history for Perl extension Class-MOP.
 
+0.06 
+    * Class::MOP::Class
+      - fixing minor meta-circularity issue with &meta, it 
+        is now more useful for subclasses
+
+    * examples/
+      - adjusting code to use the &Class::MOP::Class::meta
+        fix detailed above
+      
 0.05 Sat Feb. 4, 2006
     * Class::MOP::Class
       - added the &attribute_metaclass and &method_metaclass

diff --git a/README b/README
index d15939f..efb427f 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Class::MOP version 0.05
+Class::MOP version 0.06
 ===========================
 
 See the individual module documentation for more information

diff --git a/examples/AttributesWithHistory.pod b/examples/AttributesWithHistory.pod
index 7039c5a..fe712c8 100644 (file)
--- a/examples/AttributesWithHistory.pod
+++ b/examples/AttributesWithHistory.pod
@@ -5,9 +5,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use base 'Class::MOP::Attribute';
 

diff --git a/examples/ClassEncapsulatedAttributes.pod b/examples/ClassEncapsulatedAttributes.pod
index 44e279b..05bd099 100644 (file)
--- a/examples/ClassEncapsulatedAttributes.pod
+++ b/examples/ClassEncapsulatedAttributes.pod
@@ -5,8 +5,6 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
 our $VERSION = '0.02';
 
 use base 'Class::MOP::Class';
@@ -51,9 +49,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use base 'Class::MOP::Attribute';
 

diff --git a/examples/InsideOutClass.pod b/examples/InsideOutClass.pod
index 73b0262..f0da289 100644 (file)
--- a/examples/InsideOutClass.pod
+++ b/examples/InsideOutClass.pod
@@ -5,9 +5,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 use Scalar::Util 'refaddr';
 
@@ -40,9 +38,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 use Scalar::Util 'refaddr';
 

diff --git a/examples/InstanceCountingClass.pod b/examples/InstanceCountingClass.pod
index 614303e..c3057cf 100644 (file)
--- a/examples/InstanceCountingClass.pod
+++ b/examples/InstanceCountingClass.pod
@@ -5,9 +5,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use base 'Class::MOP::Class';
 

diff --git a/examples/LazyClass.pod b/examples/LazyClass.pod
index df9e4b5..1f504af 100644 (file)
--- a/examples/LazyClass.pod
+++ b/examples/LazyClass.pod
@@ -5,9 +5,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use base 'Class::MOP::Class';
 
@@ -34,9 +32,7 @@ package # hide the package from PAUSE
 use strict;
 use warnings;
 
-use Class::MOP 'meta';
-
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use base 'Class::MOP::Attribute';
 

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index 4bce07a..6286361 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -11,7 +11,7 @@ use Class::MOP::Class;
 use Class::MOP::Attribute;
 use Class::MOP::Method;
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 
 sub import {
     shift;

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 7004513..410bacb 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -9,11 +9,11 @@ use Scalar::Util 'blessed', 'reftype';
 use Sub::Name    'subname';
 use B            'svref_2object';
 
-our $VERSION = '0.02';
+our $VERSION = '0.03';
 
 # Self-introspection
 
-sub meta { $_[0]->initialize($_[0]) }
+sub meta { Class::MOP::Class->initialize($_[0]) }
 
 # Creation