adding make_immutable sugar

diff --git a/Changes b/Changes
index 9570b53..77abe95 100644 (file)
--- a/Changes
+++ b/Changes
@@ -7,6 +7,8 @@ Revision history for Perl extension Moose
         - added tests for this (thanks thepler)
       - 'has' now dies if you don't pass in name 
         value pairs
+      - added the 'make_immutable' keyword as a shortcut
+        to __PACKAGE__->meta->make_immutable
 
     * Moose::Meta::Class
       Moose::Meta::Method::Constructor

diff --git a/lib/Moose.pm b/lib/Moose.pm
index e5c8a28..ca5ac15 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -161,6 +161,12 @@ use Moose::Util ();
                 $class->meta->add_augment_method_modifier( $name => $method );
             };
         },
+        make_immutable => sub {
+            my $class = $CALLER;
+            return subname 'Moose::make_immutable' => sub {
+                $class->meta->make_immutable(@_)
+            };            
+        },        
         confess => sub {
             return \&Carp::confess;
         },