some doc tweaks

diff --git a/Changes b/Changes
index 4cca969..2ec6aef 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,8 +1,11 @@
 Revision history for Perl extension Moose
 
+0.34
+    ~~ some doc fixes ~~
+
 0.33 Fri. Dec. 14, 2007
-    !! Moose now loads ~45% faster !!
-    !!  with new Class::MOP 0.49   !!
+    !! Moose now loads 2 x faster !!
+    !!  with new Class::MOP 0.49  !!
 
     ++ new ooose.pm module to make command line
        Moose-ness easier (see POD docs for more)

diff --git a/README b/README
index e6c4f20..4e5b3e2 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Moose version 0.33
+Moose version 0.34
 ===========================
 
 See the individual module documentation for more information

diff --git a/lib/Moose.pm b/lib/Moose.pm
index 67b9df6..39788c1 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -4,7 +4,7 @@ package Moose;
 use strict;
 use warnings;
 
-our $VERSION   = '0.33';
+our $VERSION   = '0.34';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
@@ -449,9 +449,9 @@ try and write a recipe on them soon.
 The default behavior here is to just load C<$metaclass_name>; however, we also
 have a way to alias to a shorter name. This will first look to see if
 B<Moose::Meta::Attribute::Custom::$metaclass_name> exists. If it does, Moose
-will then check to see if that has the method C<register_implemenetation>, which
+will then check to see if that has the method C<register_implementation>, which
 should return the actual name of the custom attribute metaclass. If there is no
-C<register_implemenetation> method, it will fall back to using
+C<register_implementation> method, it will fall back to using
 B<Moose::Meta::Attribute::Custom::$metaclass_name> as the metaclass name.
 
 =item I<trigger =E<gt> $code>

diff --git a/lib/Moose/Meta/Method/Accessor.pm b/lib/Moose/Meta/Method/Accessor.pm
index 4b7a451..e70cba1 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor.pm
+++ b/lib/Moose/Meta/Method/Accessor.pm
@@ -29,8 +29,8 @@ sub generate_accessor_method_inline {
         . $self->_inline_check_required . "\n"
         . $self->_inline_check_coercion . "\n"
         . $self->_inline_check_constraint($value_name) . "\n"
-                . $self->_inline_store($inv, $value_name) . "\n"
-                . $self->_inline_trigger($inv, $value_name) . "\n"
+        . $self->_inline_store($inv, $value_name) . "\n"
+        . $self->_inline_trigger($inv, $value_name) . "\n"
     . ' }' . "\n"
     . $self->_inline_check_lazy . "\n"
     . $self->_inline_post_body(@_) . "\n"
@@ -43,6 +43,7 @@ sub generate_accessor_method_inline {
                                 ? $attr->type_constraint->_compiled_type_constraint
                                 : undef;
 
+    #warn $code;
     my $sub = eval $code;
     confess "Could not create accessor for '$attr_name' because $@ \n code: $code" if $@;
     return $sub;
@@ -61,10 +62,10 @@ sub generate_writer_method_inline {
     . $self->_inline_copy_value
     . $self->_inline_check_required
     . $self->_inline_check_coercion
-        . $self->_inline_check_constraint($value_name)
-        . $self->_inline_store($inv, $value_name)
-        . $self->_inline_post_body(@_)
-        . $self->_inline_trigger($inv, $value_name)
+    . $self->_inline_check_constraint($value_name)
+    . $self->_inline_store($inv, $value_name)
+    . $self->_inline_post_body(@_)
+    . $self->_inline_trigger($inv, $value_name)
     . ' }';
 
     # NOTE:
@@ -99,6 +100,7 @@ sub generate_reader_method_inline {
                                 ? $attr->type_constraint->_compiled_type_constraint
                                 : undef;
 
+                                
     my $sub = eval $code;
     confess "Could not create reader for '$attr_name' because $@ \n code: $code" if $@;
     return $sub;