NAME Plack::Middleware::EasyHooks - PSGI Middleware the easy way SYNOPSIS package Plack::Middleware::MyAccessLog; use parent qw(Plack::Middleware::EasyHooks); sub before { my ($self, $env) = @_; $env->{MyAccessLog} = { start_time => time(), response_size => 0, }; } sub filter { my ($self, $env, $chunk) = @_; $env->{MyAccessLog]->{response_size} += length $chunk; return $chunk; } sub finalize { my ($self, $env) = shift; my $time = time() - $env->{MyAccessLog}->{start_time}; my $size = $env->{MyAccessLog}->{response_size}; warn "Request took $time seconds and sent $size bytes"; } 1; Or as an inline middleware use Plack::Builder; my $app = ...; builder { enable 'Plack::Middleware::EasyHooks', before => sub { $_[0]->{start_time} = time(); }, finalize => sub { my $time = time() - $_[0]->{start}; warn "Request took $time seconds"; }; $app; } DESCRIPTION Plack::Middleware::EasyHooks takes care of the complexities handling streaming in PSGI middleware. Just provide hooks to be called before, during and after the wrapped PSGI application. The hooks are called in the following order (much simplified): before(); $app->(); after(); filter($_) for @body; tail($env); finalize(); SUPPORTED HOOKS The following methods are available for hooking into the request handling before( $env ) This method is called before processing the wrapped PSGI application. It receives the PSGI $env hash ref as argument. The return value is ignored. after( $env, $res ) This method is called when the app starts to respond. It receives the PSGI $env and a array ref containing the status code and headers as arguments. The middleware can override the status code and headers either by updating the elements of this array ref or by returning a array ref with the new status code and headers. filter ( $env, $chunk ) This method allows you to filter the content of the response. It is called on each chunk of the response. The return value is passed to the next level. If the return value is "undef" proccessing of the request is stopped. tail( $env ); This methods allows you to add some additional content at the end of the body. finalize( $env ) This method is called after the request has been processed. BUGS Unless your PSGI server supports cleanup handles, the finalize() method might be calles before the final chunk is successfully sent to the client. AUTHOR Peter Makholm COPYRIGHT AND LICENSE Copyright (C) 2012 by Peter Makholm. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.