use Scalar::Util qw/blessed weaken/;
-use Mouse::Meta::Method::Constructor;
use Mouse::Meta::Method::Destructor;
use Mouse::Meta::Module;
our @ISA = qw(Mouse::Meta::Module);
sub method_metaclass() { 'Mouse::Meta::Method' }
sub attribute_metaclass() { 'Mouse::Meta::Attribute' }
-sub constructor_class() { 'Mouse::Meta::Method::Constructor' }
+sub constructor_class(); # XS
sub destructor_class() { 'Mouse::Meta::Method::Destructor' }
sub _construct_meta {
sub make_immutable {
my $self = shift;
my %args = (
- inline_constructor => 0,
+ inline_constructor => 1,
inline_destructor => 1,
constructor_name => 'new',
@_,