perl - 如何为 Catalyst 中的每个响应设置 Cache-Control header ？

Question

似乎默认情况下 Catalyst 不输出 Cache-Control:等标题。我知道我可以在给定的 Controller 方法中输出它们，如下所示:

$c->response->headers->last_modified(time);
$c->response->headers->expires(time + $self->{cache_time});
$c->response->headers->header(cache_control => "public, max-age=$self->{cache_time}");

但是，在每种方法中这样做都会非常痛苦!我更喜欢的是:

一组默认的 header (现在过期，现在最后修改，缓存控制:无缓存，编译指示:无缓存)

一种按方法覆盖默认值的方法。

有没有好的方法来实现这一点？

Answer 1

德罗贝特:

很好的问题。我在 article 中完全涵盖了这一点为催化剂降临日历。

基本上，您创建一个存储变量来定义给定操作的缓存时间，然后在根结束例程中处理它。有关所有详细信息，请参阅文章。

杰伊克