lib/Catalyst/Base.pm

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