__PACKAGE__->mk_classdata($_) for qw/arguments dispatcher engine log/;
-our $VERSION = '5.24';
+our $VERSION = '5.33';
our @ISA;
=head1 NAME
sub import {
my ( $class, @arguments ) = @_;
+
+ # We have to limit $class to Catalyst to avoid pushing Catalyst upon every
+ # callers @ISA.
+ return unless $class eq 'Catalyst';
my $caller = caller(0);
-
- # Prepare inheritance
- unless ( $caller->isa($class) ) {
-
+
+ unless ( $caller->isa('Catalyst') ) {
no strict 'refs';
push @{"$caller\::ISA"}, $class;
-
- *{"$caller\::import"} = sub { 1 };
}
$caller->arguments( [ @arguments ] );
=back
+=head1 CASE SENSITIVITY
+
+By default Catalyst is not case sensitive, so C<MyApp::C::FOO::Bar> becomes
+C</foo/bar>.
+
+But you can activate case sensitivity with a config parameter.
+
+ MyApp->config->{case_sensitive} = 1;
+
=head1 LIMITATIONS
mod_perl2 support is considered experimental and may contain bugs.
=back
-=head1 AUTHOR
+=head1 CREDITS
-Sebastian Riedel, C<sri@oook.de>
+Andy Grundman
+
+Andrew Ford
+
+Andrew Ruthven
+
+Autrijus Tang
+
+Christian Hansen
+
+Christopher Hicks
+
+Dan Sully
+
+Danijel Milicevic
-=head1 THANK YOU
+David Naughton
-Andy Grundman, Andrew Ford, Andrew Ruthven, Autrijus Tang, Christian Hansen,
-Christopher Hicks, Dan Sully, Danijel Milicevic, David Naughton,
-Gary Ashton Jones, Geoff Richards, Jesse Sheidlower, Jody Belka,
-Johan Lindstrom, Juan Camacho, Leon Brocard, Marcus Ramberg,
-Tatsuhiko Miyagawa and all the others who've helped.
+Gary Ashton Jones
+
+Geoff Richards
+
+Jesse Sheidlower
+
+Jody Belka
+
+Johan Lindstrom
+
+Juan Camacho
+
+Leon Brocard
+
+Marcus Ramberg
+
+Matt S Trout
+
+Robert Sedlacek
+
+Sebastian Riedel
+
+Tatsuhiko Miyagawa
+
+Ulf Edvinsson
+
+=head1 AUTHOR
+
+Sebastian Riedel, C<sri@oook.de>
=head1 LICENSE