X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=6bc7e3d60e844829216e7af358110c9b6d2fe020;hb=31213ebcb811c9c11e004ebefac1f6f9aca2ea3d;hp=3ec38fcd0307aaca4b6437f7553a12f60e082f26;hpb=e25e23a7e56014e6c36e83e1b2d55106186ffe4d;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 3ec38fc..6bc7e3d 100755 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -126,7 +126,7 @@ __PACKAGE__->stats_class('Catalyst::Stats'); # Remember to update this in Catalyst::Runtime as well! -our $VERSION = '5.90062'; +our $VERSION = '5.90064'; sub import { my ( $class, @arguments ) = @_; @@ -1252,9 +1252,12 @@ EOF } $class->setup_finalize; - # Should be the last thing we do so that user things hooking - # setup_finalize can log.. - $class->log->_flush() if $class->log->can('_flush'); + + # Turn autoflush back off once setup is finished. + # TODO: this is being done purely for Static::Simple (legacy API), and has been suggested by + # mst to be removed and require/update Static::Simple to set this flag itself + $class->log->autoflush(undef) if ($class->log->can('autoflush')); + return $class || 1; # Just in case someone named their Application 0... } @@ -2947,6 +2950,9 @@ sub setup_log { unless ( $class->log ) { $class->log( Catalyst::Log->new(keys %levels) ); } + + # Turn on autoflush by default: + $class->log->autoflush(1) if ($class->log->can('autoflush')); if ( $levels{debug} ) { Class::MOP::get_metaclass_by_name($class)->add_method('debug' => sub { 1 }); @@ -3107,6 +3113,10 @@ which sounds odd but is likely how you expect it to work if you have prior experience with L or if you previously used the plugin L (which is now considered deprecated) +So basically your middleware handles an incoming request from the first +registered middleware, down and handles the response from the last middleware +up. + =cut sub registered_middlewares { @@ -3128,7 +3138,7 @@ sub registered_middlewares { sub setup_middleware { my $class = shift; my @middleware_definitions = @_ ? - @_ : reverse(@{$class->config->{'psgi_middleware'}||[]}); + reverse(@_) : reverse(@{$class->config->{'psgi_middleware'}||[]}); my @middleware = (); while(my $next = shift(@middleware_definitions)) { @@ -3583,7 +3593,7 @@ example given above, which uses L to provide either L it installed (if you want the faster XS parser, add it to you project Makefile.PL or dist.ini, cpanfile, etc.) -The C configuation is a hashref whose keys are HTTP Content-Types +The C configuration is a hashref whose keys are HTTP Content-Types (matched against the incoming request type using a regexp such as to be case insensitive) and whose values are coderefs that receive a localized version of C<$_> which is a filehandle object pointing to received body.