Add cache control headers to perl server

zpao · zpao · commit 304a251432b2 · 2016-01-25T16:42:19.000-08:00
diff --git a/server.pl b/server.pl
@@ -19,6 +19,7 @@
 any [qw(GET POST)] => '/api/comments' => sub {
   my $self = shift;
   my $comments = decode_json (do { local(@ARGV,$/) = 'comments.json';<> });
+  $self->res->headers->cache_control('no-cache');
 
   if ($self->req->method eq 'POST')
   {

Original file line number	Diff line number	Diff line change
`@@ -19,6 +19,7 @@`
`19`	`19`	`any [qw(GET POST)] => '/api/comments' => sub {`
`20`	`20`	`my $self = shift;`
`21`	`21`	`my $comments = decode_json (do { local(@ARGV,$/) = 'comments.json';<> });`
	`22`	`+ $self->res->headers->cache_control('no-cache');`
`22`	`23`
`23`	`24`	`if ($self->req->method eq 'POST')`
`24`	`25`	`{`