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:{}})