X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=trunk%2Flib%2FCatalyst%2FBase.pm;fp=trunk%2Flib%2FCatalyst%2FBase.pm;h=1dca5c91c7721684476005104b475c6869a18dfe;hb=ceae39c522c2145a453188867dd581062795ecee;hp=0000000000000000000000000000000000000000;hpb=f436bc1bece2bcc2a04138068e5c22e70d9d6d35;p=catagits%2FCatalyst-Runtime.git

diff --git a/trunk/lib/Catalyst/Base.pm b/trunk/lib/Catalyst/Base.pm
new file mode 100644
index 0000000..1dca5c9
--- /dev/null
+++ b/trunk/lib/Catalyst/Base.pm
@@ -0,0 +1,41 @@
+package Catalyst::Base;
+use Moose;
+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;
+
+__END__
+
+=head1 NAME
+
+Catalyst::Base - Deprecated base class
+
+=head1 DESCRIPTION
+
+This used to be the base class for Catalyst Controllers. It
+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<Catalyst::Controller> instead.
+
+=head1 SEE ALSO
+
+L<Catalyst>, L<Catalyst::Controller>.
+
+=head1 AUTHORS
+
+Catalyst Contributors, see Catalyst.pm
+
+=head1 COPYRIGHT
+
+This library is free software. You can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut