From 304a251432b255635eeedccee23897c0d3684395 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Paul=20O=E2=80=99Shannessy?= <paul@oshannessy.com>
Date: Mon, 25 Jan 2016 16:42:19 -0800
Subject: [PATCH] Add cache control headers to perl server

---
 server.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/server.pl b/server.pl
index 517e1621..73c2713d 100644
--- 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')
   {