X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=38d3153509f072dca88dffde718dfb298df8acfb;hp=8183a969b634ea1c0b84467391ce0416fc4eee56;hb=6423ed47a3392af0da9cd37ac8519583e51feb27;hpb=4e7e3250fdc8eeccfd656270b40f6aa9817da9a9 diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 8183a96..38d3153 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -11,7 +11,7 @@ our @ISA = qw(Mouse::Meta::Module); sub method_metaclass() { 'Mouse::Meta::Method' } sub attribute_metaclass() { 'Mouse::Meta::Attribute' } -sub constructor_class(); # XS +sub constructor_class() { 'Mouse::Meta::Method::Constructor' } sub destructor_class() { 'Mouse::Meta::Method::Destructor' } sub _construct_meta { @@ -191,7 +191,7 @@ sub clone_instance { sub make_immutable { my $self = shift; my %args = ( - inline_constructor => 1, + inline_constructor => 0, inline_destructor => 1, constructor_name => 'new', @_,