Commit | Line | Data |
ceae39c5 |
1 | package Catalyst::Base; |
2 | use Moose; |
3 | BEGIN { extends 'Catalyst::Controller' } |
4 | |
5 | after 'BUILD' => sub { |
6 | my $self = shift; |
7 | warn(ref($self) . " is using the deprecated Catalyst::Base, update your application as this will be removed in the next major release"); |
8 | }; |
9 | |
10 | no Moose; |
11 | |
12 | 1; |
13 | |
14 | __END__ |
15 | |
16 | =head1 NAME |
17 | |
18 | Catalyst::Base - Deprecated base class |
19 | |
20 | =head1 DESCRIPTION |
21 | |
22 | This used to be the base class for Catalyst Controllers. It |
23 | remains here for compatibility reasons, but its use is highly deprecated. |
24 | |
25 | If your application produces a warning, then please update your application to |
26 | inherit from L<Catalyst::Controller> instead. |
27 | |
28 | =head1 SEE ALSO |
29 | |
30 | L<Catalyst>, L<Catalyst::Controller>. |
31 | |
32 | =head1 AUTHORS |
33 | |
34 | Catalyst Contributors, see Catalyst.pm |
35 | |
36 | =head1 COPYRIGHT |
37 | |
38 | This library is free software. You can redistribute it and/or modify it under |
39 | the same terms as Perl itself. |
40 | |
41 | =cut |