X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=d2051837233552ff3dde813a852242c426cc0bb7;hp=a8574949039b47f07649caea8bd2ef923448882a;hb=23f9d93414eadb11350029f13b51841d8309363b;hpb=5783a9a55a3037a5907c11f8649521434c2ca92e diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index a857494..d205183 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -7,7 +7,7 @@ use Catalyst::Log; __PACKAGE__->mk_classdata($_) for qw/_config log/; -our $VERSION = '4.26'; +our $VERSION = '4.28'; our @ISA; =head1 NAME @@ -69,37 +69,49 @@ The key concept of Catalyst is DRY (Don't Repeat Yourself). See L for more documentation. -Omit the Catalyst::Plugin:: prefix from plugins. -So Catalyst::Plugin::My::Module becomes My::Module. +Catalyst plugins can be loaded by naming them as arguments to the "use Catalyst" statement. +Omit the C prefix from the plugin name, +so C becomes C. use Catalyst 'My::Module'; -You can also set special flags like -Debug and -Engine. +Special flags like -Debug and -Engine can also be specifed as arguments when +Catalyst is loaded: use Catalyst qw/-Debug My::Module/; -The position of plugins and flags in the chain is important, -because they are loaded in the same order they appear. +The position of plugins and flags in the chain is important, because they are +loaded in exactly the order that they appear. -=head2 -Debug +The following flags are supported: + +=over 4 + +=item -Debug + +enables debug output, i.e.: use Catalyst '-Debug'; -is equivalent to +this is equivalent to: use Catalyst; sub debug { 1 } -=head2 -Engine +=item -Engine Force Catalyst to use a specific engine. -Omit the Catalyst::Engine:: prefix. +Omit the C prefix of the engine name, i.e.: use Catalyst '-Engine=CGI'; -=head2 METHODS +=back + +=head1 METHODS + +=over 4 -=head3 debug +=item debug Overload to enable debug messages. @@ -107,7 +119,7 @@ Overload to enable debug messages. sub debug { 0 } -=head3 config +=item config Returns a hashref containing your applications settings. @@ -161,7 +173,8 @@ sub import { else { $caller->log->debug(qq/Loaded plugin "$plugin"/) if $caller->debug; - unshift @ISA, $plugin; + no strict 'refs'; + push @{"$caller\::ISA"}, $plugin; } } } @@ -171,10 +184,15 @@ sub import { 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; } +=back + =head1 SUPPORT IRC: @@ -197,9 +215,9 @@ Sebastian Riedel, C =head1 THANK YOU -Andrew Ruthven, Christopher Hicks, Danijel Milicevic, David Naughton, -Gary Ashton Jones, Jesse Sheidlower, Johan Lindstrom, Marcus Ramberg, -Tatsuhiko Miyagawa 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