X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;h=1dca5c91c7721684476005104b475c6869a18dfe;hp=5d8a4e6df629f0415d81f880a32c8db4ab11d95b;hb=d0cacee71a316290bc01f0e12681c16bdc1e84e2;hpb=234763d423ad763148bbbb4ece98acd2d009b969 diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index 5d8a4e6..1dca5c9 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -1,7 +1,13 @@ package Catalyst::Base; +use Moose; +BEGIN { extends 'Catalyst::Controller' } -use strict; -use base qw/Catalyst::Controller/; +after 'BUILD' => sub { + my $self = shift; + warn(ref($self) . " is using the deprecated Catalyst::Base, update your application as this will be removed in the next major release"); +}; + +no Moose; 1; @@ -14,21 +20,22 @@ Catalyst::Base - Deprecated base class =head1 DESCRIPTION This used to be the base class for Catalyst Controllers. It -remains here for compability reasons. +remains here for compatibility reasons, but its use is highly deprecated. + +If your application produces a warning, then please update your application to +inherit from L instead. =head1 SEE ALSO L, L. -=head1 AUTHOR +=head1 AUTHORS -Sebastian Riedel, C -Marcus Ramberg, C -Matt S Trout, C +Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT -This program is free software, you can redistribute it and/or modify it under +This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself. -=cut \ No newline at end of file +=cut