From a6e282ebb5c222b918e9d83ac78a39e21509976f Mon Sep 17 00:00:00 2001
From: Tom Bloor <tom.bloor@googlemail.com>
Date: Wed, 5 Apr 2017 22:43:08 +0100
Subject: [PATCH] Refactor schema into attribute

---
 lib/Pear/LocalLoop.pm | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lib/Pear/LocalLoop.pm b/lib/Pear/LocalLoop.pm
index 13ac99d..fba2d65 100644
--- a/lib/Pear/LocalLoop.pm
+++ b/lib/Pear/LocalLoop.pm
@@ -10,6 +10,14 @@ use Authen::Passphrase::BlowfishCrypt;
 use Scalar::Util qw(looks_like_number);
 use Pear::LocalLoop::Schema;
 
+has schema => sub {
+  my $c = shift;
+  return Pear::LocalLoop::Schema->connect(
+    $c->app->config->{dsn},
+    $c->app->config->{user},
+    $c->app->config->{pass},
+  );
+};
 
 sub startup {
   my $self = shift;
@@ -25,18 +33,15 @@ $self->plugin( 'Config', {
 my $config = $self->config;
 
 
-my $schema = Pear::LocalLoop::Schema->connect($config->{dsn},$config->{user},$config->{pass}) or die "Could not connect";
-my $dbh = $schema->storage->dbh;
-$dbh->do("PRAGMA foreign_keys = ON");
-$dbh->do("PRAGMA secure_delete = ON");
 
 my $sessionTimeSeconds = 60 * 60 * 24 * 7; #1 week.
 my $sessionTokenJsonName = 'sessionToken';
 my $sessionExpiresJsonName = 'sessionExpires';
 
 # shortcut for use in template
-$self->helper( db => sub { $dbh });
-$self->helper( schema => sub { $schema });
+$self->helper( db => sub { $self->app->schema->storage->dbh });
+$self->helper( schema => sub { $self->app->schema });
+
 
 my $r = $self->routes;
 $r = $r->any('/api') if $self->app->mode ne 'testing';