use B 'perlstring';
use Sub::Defer ();
-our $VERSION = '1.001000'; # 1.1.0
+our $VERSION = '1.002000'; # 1.2.0
$VERSION = eval $VERSION;
require Moo::sification;
Moo->_constructor_maker_for($target)
->register_attribute_specs(%{$old->all_attribute_specs});
}
+ elsif (!$target->isa('Moo::Object')) {
+ Moo->_constructor_maker_for($target);
+ }
no warnings 'once'; # piss off. -- mst
$Moo::HandleMoose::MOUSE{$target} = [
grep defined, map Mouse::Util::find_meta($_), @_
}
sub _constructor_maker_for {
- my ($class, $target, $select_super) = @_;
+ my ($class, $target) = @_;
return unless $MAKERS{$target};
$MAKERS{$target}{constructor} ||= do {
require Method::Generate::Constructor;
require Sub::Defer;
my ($moo_constructor, $con);
- if ($select_super && $MAKERS{$select_super}) {
- $moo_constructor = 1;
- $con = $MAKERS{$select_super}{constructor};
- } else {
- my $t_new = $target->can('new');
- if ($t_new) {
- if ($t_new == Moo::Object->can('new')) {
+ my $t_new = $target->can('new');
+ if ($t_new) {
+ if ($t_new == Moo::Object->can('new')) {
+ $moo_constructor = 1;
+ } elsif (my $defer_target = (Sub::Defer::defer_info($t_new)||[])->[0]) {
+ my ($pkg) = ($defer_target =~ /^(.*)::[^:]+$/);
+ if ($MAKERS{$pkg}) {
$moo_constructor = 1;
- } elsif (my $defer_target = (Sub::Defer::defer_info($t_new)||[])->[0]) {
- my ($pkg) = ($defer_target =~ /^(.*)::[^:]+$/);
- if ($MAKERS{$pkg}) {
- $moo_constructor = 1;
- $con = $MAKERS{$pkg}{constructor};
- }
+ $con = $MAKERS{$pkg}{constructor};
}
- } else {
- $moo_constructor = 1; # no other constructor, make a Moo one
}
- };
+ } else {
+ $moo_constructor = 1; # no other constructor, make a Moo one
+ }
($con ? ref($con) : 'Method::Generate::Constructor')
->new(
package => $target,
If you are inheriting from a non-Moo class, the arguments passed to the parent
class constructor can be manipulated by defining a C<FOREIGNBUILDARGS> method.
-It will recieve the same arguments as C<BUILDARGS>, and should return a list
+It will receive the same arguments as C<BUILDARGS>, and should return a list
of arguments to pass to the parent class constructor.
=head2 BUILD
class. You shouldn't need this by default, but is provided as a means of
possible extensibility.
-L<Sub::Quote aware|/SUB QUOTE AWARE>
-
=back
=head2 before