ready for the 0.04 release
Stevan Little [Fri, 3 Feb 2006 21:32:35 +0000 (21:32 +0000)]
Changes
README
examples/ClassEncapsulatedAttributes.pod

diff --git a/Changes b/Changes
index 9e61249..fbcc008 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,6 @@
 Revision history for Perl extension Class-MOP.
 
-0.04 
+0.04 Fri Feb. 3, 2006
     * Class::MOP::Class
       - some documentation suggestions from #perl6
     
@@ -10,7 +10,7 @@ Revision history for Perl extension Class-MOP.
     * examples/
       - added new examples:
         - AttributesWithHistory
-        - 
+        - ClassEncapsultedAttributes
 
 0.03 Fri Feb. 3, 2006
     - converted to Module::Build instead of EU::MM
diff --git a/README b/README
index 36aca05..48be354 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Class::MOP version 0.03
+Class::MOP version 0.04
 ===========================
 
 See the individual module documentation for more information
index 030fdb4..7c19e7a 100644 (file)
@@ -13,7 +13,6 @@ use base 'Class::MOP::Class';
 
 sub construct_instance {
     my ($class, %params) = @_;
-    #use Data::Dumper; warn Dumper \%params;    
     my $instance = {};
     foreach my $current_class ($class->class_precedence_list()) {
         $instance->{$current_class} = {} 
@@ -36,7 +35,6 @@ sub construct_instance {
             $instance->{$current_class}->{$attr_name} = $val;
         }
     }  
-    #use Data::Dumper; warn Dumper $instance;
     return $instance;
 }
 
@@ -144,6 +142,15 @@ ClassEncapsulatedAttributes - A set of example metaclasses with class encapsulat
   
 =head1 DESCRIPTION
 
+This is an example metaclass which encapsulates a class's 
+attributes on a per-class basis. This means that there is no
+possibility of name clashes with inherited attributes. This 
+is similar to how C++ handles its data members. 
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Yuval "nothingmuch" Kogman for the idea for this example.
+
 =head1 AUTHOR
 
 Stevan Little E<lt>stevan@iinteractive.comE<gt>