__PACKAGE__->mk_classdata($_) for qw/arguments dispatcher engine log/;
-our $VERSION = '5.24';
+our $VERSION = '5.31';
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 ] );