X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoo.pm;h=660488c30e5788aed8f8a92e65e0eaf060a53a24;hb=11f7a04257b92d8cb9e5feffdad80578eab1af42;hp=ddb9779b4087b17268d2e208d19affb4737e6578;hpb=ea296ea0d1030f3e942b8d76f3a3dc511c7e35f9;p=gitmo%2FRole-Tiny.git

diff --git a/lib/Moo.pm b/lib/Moo.pm
index ddb9779..660488c 100644
--- a/lib/Moo.pm
+++ b/lib/Moo.pm
@@ -2,8 +2,9 @@ package Moo;
 
 use strictures 1;
 use Moo::_Utils;
+use B 'perlstring';
 
-our $VERSION = '0.009006'; # 0.9.6
+our $VERSION = '0.009008'; # 0.9.8
 $VERSION = eval $VERSION;
 
 our %MAKERS;
@@ -85,7 +86,10 @@ sub _constructor_maker_for {
           $moo_constructor
             ? ($con ? $con->construction_string : undef)
             : ('$class->'.$target.'::SUPER::new(@_)')
-        )
+        ),
+        subconstructor_generator => (
+          $class.'->_constructor_maker_for($class,'.perlstring($target).')'
+        ),
       )
       ->install_delayed
       ->register_attribute_specs(%{$con?$con->all_attribute_specs:{}})
@@ -263,10 +267,6 @@ L<Sub::Quote aware|/SUB QUOTE AWARE>
 
 =item * coerce
 
-This Moose feature is not yet supported
-
-=begin hide
-
 Takes a coderef which is meant to coerce the attribute.  The basic idea is to
 do something like the following:
 
@@ -274,9 +274,9 @@ do something like the following:
    $_[0] + 1 unless $_[0] % 2
  },
 
-L<Sub::Quote aware|/SUB QUOTE AWARE>
+Coerce does not require C<isa> to be defined.
 
-=end hide
+L<Sub::Quote aware|/SUB QUOTE AWARE>
 
 =item * trigger
 
@@ -420,9 +420,11 @@ jnap - John Napiorkowski (cpan:JJNAPIORK) <jjn1056@yahoo.com>
 
 ribasushi - Peter Rabbitson (cpan:RIBASUSHI) <ribasushi@cpan.org>
 
+chip - Chip Salzenberg (cpan:CHIPS) <chip@pobox.com>
+
 =head1 COPYRIGHT
 
-Copyright (c) 2010-2011 the strictures L</AUTHOR> and L</CONTRIBUTORS>
+Copyright (c) 2010-2011 the Moo L</AUTHOR> and L</CONTRIBUTORS>
 as listed above.
 
 =head1 LICENSE