only load the template once

1 files changed, 10 insertions, 3 deletions

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);