X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FModel.pm;h=4ab2ebc72561af20e041cfbec1fb18d571278934;hb=46d0346ddafe8e167c679cddef9834946598e689;hp=f56b31f2658431ed2c91d3ddc2324680086490af;hpb=5ee249f25d549a71fdb509af9d99151f62cddab8;p=catagits%2FCatalyst-Runtime.git

diff --git a/lib/Catalyst/Model.pm b/lib/Catalyst/Model.pm
index f56b31f..4ab2ebc 100644
--- a/lib/Catalyst/Model.pm
+++ b/lib/Catalyst/Model.pm
@@ -1,7 +1,12 @@
 package Catalyst::Model;
 
-use strict;
-use base qw/Catalyst::Component/;
+use Moose;
+extends qw/Catalyst::Component/;
+
+no Moose;
+
+#We can't immutablize anything that ISA Component just yet
+#__PACKAGE__->meta->make_immutable();
 
 =head1 NAME
 
@@ -15,6 +20,11 @@ See L<Catalyst>.
 
 Catalyst Model base class.
 
+=head1 METHODS
+
+Implements the same methods as other Catalyst components, see
+L<Catalyst::Component>
+
 =head1 AUTHOR
 
 Sebastian Riedel, C<sri@oook.de>
@@ -26,4 +36,6 @@ the same terms as Perl itself.
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
+
 1;