__PACKAGE__->mk_classdata($_) for qw/_config log/;
-our $VERSION = '4.23';
+our $VERSION = '4.28';
our @ISA;
=head1 NAME
script/test.pl /yada
- See also L<Catalyst::Manual::Intro>
-
-
use Catalyst;
use Catalyst qw/My::Module My::OtherModule/;
}
);
+See also L<Catalyst::Manual::Intro>
+
=head1 DESCRIPTION
Catalyst is based upon L<Maypole>, which you should consider for smaller
else {
$caller->log->debug(qq/Loaded plugin "$plugin"/)
if $caller->debug;
- unshift @ISA, $plugin;
+ no strict 'refs';
+ push @{"$caller\::ISA"}, $plugin;
}
}
}
if $ENV{CATALYST_ENGINE};
$engine->require;
die qq/Couldn't load engine "$engine", "$@"/ if $@;
- push @ISA, $engine;
+ {
+ no strict 'refs';
+ push @{"$caller\::ISA"}, $engine;
+ }
$caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
}
=head1 THANK YOU
-Danijel Milicevic, David Naughton, Gary Ashton Jones, Jesse Sheidlower,
-Johan Lindstrom, Marcus Ramberg and all the others who've helped.
+Andrew Ruthven, Christian Hansen, Christopher Hicks, Danijel Milicevic,
+David Naughton, Gary Ashton Jones, Jesse Sheidlower, Johan Lindstrom,
+Marcus Ramberg, Tatsuhiko Miyagawa and all the others who've helped.
=head1 LICENSE