X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=24559c4e484b0d48ee55554ad0e44e5d9b31f6a6;hb=bf1c5d5c92ddde0cfaef2f9489d7a743216e5933;hp=38d3153509f072dca88dffde718dfb298df8acfb;hpb=6423ed47a3392af0da9cd37ac8519583e51feb27;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 38d3153..24559c4 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -3,7 +3,6 @@ use Mouse::Util qw/:meta get_linear_isa not_supported/; # enables strict and war 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); @@ -11,7 +10,7 @@ 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 { @@ -191,7 +190,7 @@ sub clone_instance { sub make_immutable { my $self = shift; my %args = ( - inline_constructor => 0, + inline_constructor => 1, inline_destructor => 1, constructor_name => 'new', @_,