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

Question

看来默认情况下 Catalyst 不会输出 Cache-Control: 等标头。 我知道我可以在给定的控制器方法中输出它们，如下所示：

$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}");

不过，在每个方法中这样做都会非常痛苦！ 我更喜欢的是：

• 一组默认的标头（现在过期，最后修改，缓存控制：无缓存，编译指示：无缓存）
• 一种按方法覆盖默认值的方法。

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

Answer 1

德罗伯特：

很好的问题。 我在 Catalyst 的文章中详细介绍了这一点出现日历。

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

杰克

Answer 2

更新：根据您对我之前建议的回复，我决定硬着头皮查看 Catalyst 文档。 在我看来，执行此操作的位置位于：

  sub end : Private {
    my ( $self, $c ) = @_;

    # handle errors etc.

    if ( $c->res->body ) {
        if ( "some condition" ) {
            set_default_response_headers( $c->response->headers );
            return;
        }
        else {
            do_something_else();
            return;
        }
    }
    $c->forward( 'MyApp::View::TT' ); # render template
}

早期响应： 我不使用 Catalyst，但是您不能为您的应用程序编写一个子程序吗？

sub set_default_response_headers {
    my ($h) = @_;
    $h->last_modified(time);
    $h->expires(time + $self->{cache_time});
    $h->header(cache_control => "public, max-age=$self->{cache_time}");
    return $h;    
}

使用 set_default_response_headers( $c->response->headers ) 进行调用。