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;
$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:{}})
=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:
$_[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
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