Changelog

diff --git a/Changes b/Changes
index 241d561..536146a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -17,6 +17,10 @@ Revision history for Perl extension Moose
         the default generating sub twice in the constructor. (bug
         found by Jesse Luehrs, fixed by Dave Rolsky)
         - added tests for this (Dave Rolsky)
+      - fix typo in initialize_body method (nothingmuch)
+      
+    * Moose::Meta::Method::Destructor
+      - fix typo in initialize_body method (nothingmuch)
 
     * Moose::Meta::Attribute
       - inherited attributes may now be extended without 
@@ -31,6 +35,29 @@ Revision history for Perl extension Moose
         eating $@ (found by Ernesto)
         - added test for this (thanks to Ernesto)
 
+    * Moose::Util::TypeConstraints
+      - &find_type_constraint now DWIMs when given an 
+        type constraint object (nothingmuch)
+
+    * Moose::Meta::TypeConstraint
+      - added the &equals method for comparing two type 
+        constraints (nothingmuch)
+        - added tests for this (nothingmuch)
+      - add the &parents method, which is just an alias to &parent. 
+        Useful for polymorphism with TC::Class (nothingmuch)
+
+    * Moose::Meta::TypeConstraint::Class
+      - added the &equals method for comparing two type 
+        constraints (nothingmuch)
+      - added the class attribute for introspection purposes
+        (nothingmuch)
+        - added tests for this
+
+    * Moose::Cookbook::Recipe*
+      - fixed references to test file locations in the POD
+        and updated up some text for new Moose features
+        (Sartak) 
+
 0.40 Fri. March 14, 2008
     - I hate Pod::Coverage
 

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index fec0e2e..e429d99 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -28,6 +28,7 @@ sub _eval_code {
                                    ? $type_constraint_obj->_compiled_type_constraint
                                    : undef;
 
+    #warn "code for $attr_name =>\n" . $code . "\n";
     my $sub = eval $code;
     confess "Could not create writer for '$attr_name' because $@ \n code: $code" if $@;
     return $sub;