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=7b03c6f6104833ac99a5cc6f423ed237235bf49f;hp=0ffd98a0e1c31182a4f2a2b91bdbda1c2f13a3a5;hb=e128626c409797822ffd8a4079f833eb3dc0fd37;hpb=e9148d131f7c3d6a1e3fc9e7c491f80fb5dde90b diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 0ffd98a..7b03c6f 100644 --- a/lib/Mouse/Meta/Class.pm +++ b/lib/Mouse/Meta/Class.pm @@ -244,6 +244,8 @@ sub make_immutable { $self->{is_immutable}++; + $self->{strict_constructor} = $args{strict_constructor}; + if ($args{inline_constructor}) { my $c = $self->constructor_class; Mouse::Util::load_class($c); @@ -461,7 +463,7 @@ Mouse::Meta::Class - The Mouse class metaclass =head1 VERSION -This document describes Mouse version 0.50 +This document describes Mouse version 0.50_01 =head1 METHODS