From: Stevan Little Date: Sat, 12 Apr 2008 16:59:14 +0000 (+0000) Subject: Changelog X-Git-Tag: 0_55~230 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae8d63f2f6822aac9504be657b8074cade5eda10;p=gitmo%2FMoose.git Changelog --- diff --git a/Changes b/Changes index 241d561..536146a 100644 --- 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 --- 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;