Plack-Middleware-Cache-CHI
view release on metacpan or search on metacpan
lib/Plack/Middleware/Cache/CHI.pm view on Meta::CPAN
our $timer_pass;
sub _uinterval {
my ( $t0, $t1 ) = ( @_, [gettimeofday] );
($t1->[0] - $t0->[0]) * 1_000_000 + $t1->[1] - $t0->[1];
}
sub call {
my ($self,$env) = @_;
## Pass-thru streaming responses
return $self->app->($env)
if ( ref $env eq 'CODE' );
## Localize trace for this request
local @trace = ();
local $timer_pass = undef;
local $timer_call = [gettimeofday];
my $req = Plack::Request->new($env);
my $r = $self->handle($req);
( run in 0.289 second using v1.01-cache-2.11-cpan-4d50c553e7e )