Come posso impostare l'intestazione Cache-Control per ogni risposta in Catalyst?

Question

Sembra che per impostazione predefinita Catalyst non emetta intestazioni Cache-Control:, ecc. So che posso uscita loro in un dato metodo di controllo in questo modo:

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

Si otterrebbe abbastanza doloroso farlo in ogni metodo, però! Quello che preferisco è:

• un insieme predefinito di intestazioni (scade oggi, ultima ora, cache-control modificato: no-cache, Pragma: no-cache)
• Un modo per, per-metodo , sostituisci il valore predefinito.

C'è un buon modo per realizzare questo?

Answer 1

derobert:

Ottima domanda. Ho coperto esattamente questo in un article per il calendario dell'avvento Catalyst.

Fondamentalmente si crea una variabile stash che definisce il tempo di cache per l'azione specificata e quindi la si processa nella routine Root end. Vedi l'articolo per tutti i dettagli.

JayK

Answer 2

Aggiornamento: Sulla base della risposta al mio precedente suggerimento, ho deciso di mordere il punto e guardare i documenti Catalyst. Mi sembra, il posto giusto per farlo è in:

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 
} 

risposta precedenza: Non faccio uso di Catalyst, ma non poteva semplicemente scrivere un sub per la vostra applicazione?

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;  
} 

Chiama con set_default_response_headers($c->response->headers).