X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FModel.pm;h=4ab2ebc72561af20e041cfbec1fb18d571278934;hb=46d0346ddafe8e167c679cddef9834946598e689;hp=356745edac0707cf267ad69c393629a6c01c6c21;hpb=8a7d038a324b73ea9210ba0b3e57c348105f448b;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Model.pm b/lib/Catalyst/Model.pm index 356745e..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 @@ -31,4 +36,6 @@ the same terms as Perl itself. =cut +__PACKAGE__->meta->make_immutable; + 1;