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=cf410836f5982fb8f9d0faf95b2d3907894b549f;hb=d0cacee71a316290bc01f0e12681c16bdc1e84e2;hpb=0fc2d522eec43202c21e9f0062e43f10db4d9008 diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm index cf41083..1dca5c9 100644 --- a/lib/Catalyst/Base.pm +++ b/lib/Catalyst/Base.pm @@ -1,8 +1,12 @@ package Catalyst::Base; - -use Class::C3; use Moose; -BEGIN{ extends qw/Catalyst::Controller/ }; +BEGIN { extends '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; @@ -16,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