X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FMeta%2FClass.pm;h=45341f59f1dbaafee5de6a69b3cebd4885085b26;hb=4aaed9e5cc435a2085e46f4c98a3abc233ecacaf;hp=9f7bc680a09fa5edf4dc8274ba8a60a679f59181;hpb=05a12aa45fbcd22111d4f5dde2736c8361540198;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm index 9f7bc68..45341f5 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_01 +This document describes Mouse version 0.50_02 =head1 METHODS