diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-18 21:12:15 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-08-23 14:01:10 +0100 |
| commit | 2b4ed83466ddf54f6d7e77088dc7e755f9259e91 (patch) | |
| tree | 7320bb3b114c553c4aca398189e72a5efc84125c /perllib/FixMyStreet/App/Model/DB.pm | |
| parent | bbe8fb87daab16ca285521658bec1dcb2fbdf4d1 (diff) | |
Use a schema cache to remember body lookups.
Diffstat (limited to 'perllib/FixMyStreet/App/Model/DB.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Model/DB.pm | 11 |
1 files changed, 10 insertions, 1 deletions
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 |