lib/Catalyst/Base.pm

   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 __PACKAGE__->meta->make_immutable;
  13
  14 1;
  15
  16 __END__
  17
  18 =head1 NAME
  19
  20 Catalyst::Base - Deprecated base class
  21
  22 =head1 DESCRIPTION
  23
  24 This used to be the base class for Catalyst Controllers. It
  25 remains here for compatibility reasons, but its use is highly deprecated.
  26
  27 If your application produces a warning, then please update your application to
  28 inherit from L<Catalyst::Controller> instead.
  29
  30 =head1 SEE ALSO
  31
  32 L<Catalyst>, L<Catalyst::Controller>.
  33
  34 =head1 AUTHORS
  35
  36 Catalyst Contributors, see Catalyst.pm
  37
  38 =head1 COPYRIGHT
  39
  40 This library is free software. You can redistribute it and/or modify it under
  41 the same terms as Perl itself.
  42
  43 =cut