use strictures 1;
use Moo::_Utils;
-our $VERSION = '0.009004'; # 0.9.4
+our $VERSION = '0.009005'; # 0.9.5
$VERSION = eval $VERSION;
our %MAKERS;
$moo_constructor = 1; # no other constructor, make a Moo one
}
};
- require Moo::_mro unless $moo_constructor;
Method::Generate::Constructor
->new(
package => $target,
require Method::Generate::Accessor;
Method::Generate::Accessor->new;
},
- ($moo_constructor ? ()
- : (construction_string => '$class->next::method(@_)'))
+ construction_string => (
+ $moo_constructor
+ ? ($con ? $con->construction_string : undef)
+ : ('$class->'.$target.'::SUPER::new(@_)')
+ )
)
->install_delayed
->register_attribute_specs(%{$con?$con->all_attribute_specs:{}})
C<auto_deref> is not supported since the author considers it a bad idea.
C<documentation> is not supported since it's a very poor replacement for POD.
+
+=head1 AUTHOR
+
+mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
+
+=head1 CONTRIBUTORS
+
+Add yourselves here please, you useless people.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2010-2011 the strictures L</AUTHOR> and L</CONTRIBUTORS>
+as listed above.
+
+=head1 LICENSE
+
+This library is free software and may be distributed under the same terms
+as perl itself.
+
+=cut