X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FModel.pm;h=4ab2ebc72561af20e041cfbec1fb18d571278934;hb=843c92335c9a365347740342df6f8d3506486432;hp=0cd5dd2850a9b2bb6f6df52a2c9d7628e34aea03;hpb=e5ecd5bc38bac3e2fcfaf643ea2a4c6ab46d7e57;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Model.pm b/lib/Catalyst/Model.pm
index 0cd5dd2..4ab2ebc 100644
--- a/lib/Catalyst/Model.pm
+++ b/lib/Catalyst/Model.pm
@@ -3,6 +3,11 @@ package Catalyst::Model;
 use Moose;
 extends qw/Catalyst::Component/;
 
+no Moose;
+
+#We can't immutablize anything that ISA Component just yet
+#__PACKAGE__->meta->make_immutable();
+
 =head1 NAME
 
 Catalyst::Model - Catalyst Model base class
@@ -31,4 +36,6 @@ the same terms as Perl itself.
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
+
 1;