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=711837a066cdf82d8b5c89d71c8246757805ddc4;hp=47fd2666625b06af29b0ace6d227cbc2702f0792;hb=4c0fe06fa87e7c2c4ed1666e77ed52ae020f19d7;hpb=d9659f80a6e4f20234968fcc003570c0da6b6ff1

diff --git a/lib/Mouse/Meta/Class.pm b/lib/Mouse/Meta/Class.pm
index 47fd266..711837a 100644
--- a/lib/Mouse/Meta/Class.pm
+++ b/lib/Mouse/Meta/Class.pm
@@ -226,14 +226,22 @@ sub clone_instance {
     return $class->clone_object($instance, %params);
 }
 
-sub make_immutable {
-    my $self = shift;
-    my %args = (
+
+sub immutable_options {
+    my ( $self, @args ) = @_;
+
+    return (
         inline_constructor => 1,
         inline_destructor  => 1,
         constructor_name   => 'new',
-        @_,
+        @args,
     );
+}
+
+
+sub make_immutable {
+    my $self = shift;
+    my %args = $self->immutable_options(@_);
 
     $self->{is_immutable}++;
 
@@ -450,7 +458,7 @@ Mouse::Meta::Class - The Mouse class metaclass
 
 =head1 VERSION
 
-This document describes Mouse version 0.40_07
+This document describes Mouse version 0.41
 
 =head1 METHODS
 
@@ -533,52 +541,6 @@ metaclass.
 
 Throws an error with the given message.
 
-=head3 OTHER PUBLIC METHODS
-
-=head3 add_after_method_modifier
-
-=head3 add_around_method_modifier
-
-=head3 add_augment_method_modifier
-
-=head3 add_before_method_modifier
-
-=head3 add_override_method_modifier
-
-=head3 attribute_metaclass
-
-=head3 calculate_all_roles
-
-=head3 compute_all_applicable_attributes
-
-=head3 constructor_class
-
-=head3 create_anon_class
-
-=head3 destructor_class
-
-=head3 does_role
-
-=head3 find_attribute_by_name
-
-=head3 find_method_by_name
-
-=head3 get_all_method_names
-
-=head3 is_anon_class
-
-=head3 is_immutable
-
-=head3 is_mutable
-
-=head3 make_immutable
-
-=head3 make_mutable
-
-=head3 method_metaclass
-
-=head3 roles
-
 =head1 SEE ALSO
 
 L<Mouse::Meta::Module>