是的,before_dispatch
钩子似乎是正确的方法,它确实适用于Mojolicious::Lite
. 这是一个概念验证,它将为每个唯一请求生成一个新结果,但为重复请求返回重复结果。在这个程序中,常规请求处理程序填充缓存,但如果您想将该部分与代码的主要功能分开,您可以在after_dispatch
挂钩中进行缓存。
use Mojolicious::Lite;
our %CACHE;
any '/:any' => sub {
my $self = shift;
my $param = $self->param('any');
my $result = { reqtime => time, param => $param, number => rand };
my $path = $self->req->url->path->to_string;
$CACHE{$path} //= $result;
$self->render( json => $result );
};
app->hook( before_dispatch => sub {
my $c = shift;
my $path = $c->req->url->path->to_string;
if (defined($CACHE{$path})) {
$c->render( json => $CACHE{$path}, status => 200 );
}
} );
app->secrets([42])->start;
样品运行:
$ morbo cachedemo.pl >/dev/null 2>&1 &
$ for req in foo foo1 foo2 foo3 foo foo1
> do curl http://localhost:3000/$req ; echo ; sleep 1 ; done
{"number":0.848003210075227,"reqtime":1444254617,"param":"foo"}
{"number":0.0745738560703799,"reqtime":1444254618,"param":"foo1"}
{"number":0.484934245556467,"reqtime":1444254619,"param":"foo2"}
{"number":0.181112856445004,"reqtime":1444254620,"param":"foo3"}
{"number":0.848003210075227,"reqtime":1444254617,"param":"foo"} <-- dup
{"number":0.0745738560703799,"reqtime":1444254618,"param":"foo1"} <-- dup