Add cache control headers to perl server

dankreek · Jan 26, 2016 · 304a251 · 304a251
1 parent d90d36b
commit 304a251
Showing 1 changed file with 1 addition and 0 deletions.
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')
   {