From d382955cb3ade340fa9e667ade8db7ddabadd2c0 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <dakkar@thenautilus.net>
Date: Tue, 3 Dec 2013 14:42:07 +0000
Subject: only load the template once

---
 lib/HomePanel/Driver.pm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'lib/HomePanel/Driver.pm')

diff --git a/lib/HomePanel/Driver.pm b/lib/HomePanel/Driver.pm
index c196486..749a958 100644
--- a/lib/HomePanel/Driver.pm
+++ b/lib/HomePanel/Driver.pm
@@ -158,16 +158,23 @@ has output_file => (
     coerce => AbsPath->coercion,
     required => 1,
 );
+has render => (
+    is => 'lazy',
+);
+sub _build_render {
+    return HomePanel::Render->new({
+        template_file => $_[0]->template_file,
+    });
+}
 
 sub write_page {
     my ($self) = @_;
 
-    my $output = HomePanel::Render->new({
-        template_file => $self->template_file,
+    my $output = $self->render->render({
         forecast => $self->forecast_response,
         bus => $self->bus_response,
         tube => $self->tube_response,
-    })->render;
+    });
 
     $self->output_file->spew_utf8($output);
 
-- 
cgit v1.2.3