From 2b4ed83466ddf54f6d7e77088dc7e755f9259e91 Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Fri, 18 Aug 2017 21:12:15 +0100
Subject: Use a schema cache to remember body lookups.

---
 perllib/FixMyStreet/App/Model/DB.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'perllib/FixMyStreet/App/Model/DB.pm')

diff --git a/perllib/FixMyStreet/App/Model/DB.pm b/perllib/FixMyStreet/App/Model/DB.pm
index 9d09186b8..ffd867485 100644
--- a/perllib/FixMyStreet/App/Model/DB.pm
+++ b/perllib/FixMyStreet/App/Model/DB.pm
@@ -5,19 +5,28 @@ use strict;
 use warnings;
 
 use FixMyStreet;
+use Moose;
+
+with 'Catalyst::Component::InstancePerContext';
 
 __PACKAGE__->config(
     schema_class => 'FixMyStreet::DB::Schema',
     connect_info => sub { FixMyStreet::DB->schema->storage->dbh },
 );
 
+sub build_per_context_instance {
+    my ( $self, $c ) = @_;
+    $self->schema->cache({});
+    return $self;
+}
+
 =head1 NAME
 
 FixMyStreet::App::Model::DB - Catalyst DBIC Schema Model
 
 =head1 DESCRIPTION
 
-L<Catalyst::Model::DBIC::Schema> Model using schema L<FixMyStreet::DB>
+L<Catalyst::Model::DBIC::Schema> Model using schema L<FixMyStreet::DB::Schema>
 
 =cut
 
-- 
cgit v1.2.3