From d8a3e96d47727fcdc9c95e831a55efdcbd9bfaa7 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 26 Apr 2013 15:30:13 -0500
Subject: compilation fixes

---
 lib/Spreadsheet/Template.pm              | 4 ++--
 lib/Spreadsheet/Template/Writer/Excel.pm | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/Spreadsheet/Template.pm b/lib/Spreadsheet/Template.pm
index 8d8dcc4..23744bc 100644
--- a/lib/Spreadsheet/Template.pm
+++ b/lib/Spreadsheet/Template.pm
@@ -31,8 +31,8 @@ has processor => (
 
 has writer => (
     is      => 'ro',
-    does    => 'Spreadsheet::Template::Renderer',
-    handles => 'Spreadsheet::Template::Renderer',
+    does    => 'Spreadsheet::Template::Writer',
+    handles => 'Spreadsheet::Template::Writer',
     lazy    => 1,
     default => sub {
         my $self = shift;
diff --git a/lib/Spreadsheet/Template/Writer/Excel.pm b/lib/Spreadsheet/Template/Writer/Excel.pm
index c2c6028..cfe5573 100644
--- a/lib/Spreadsheet/Template/Writer/Excel.pm
+++ b/lib/Spreadsheet/Template/Writer/Excel.pm
@@ -1,7 +1,7 @@
 package Spreadsheet::Template::Writer::Excel;
 use Moose::Role;
 
-use Class::Load;
+use Class::Load 'load_class';
 
 with 'Spreadsheet::Template::Writer';
 
@@ -23,6 +23,7 @@ has _fh => (
     isa     => 'FileHandle',
     lazy    => 1,
     default => sub {
+        my $self = shift;
         open my $fh, '>', $self->_output
             or die "Failed to open filehandle: $!";
         binmode $fh;
@@ -32,8 +33,7 @@ has _fh => (
 
 has _output => (
     is      => 'ro',
-    isa     => 'ScalarRef[Str]',
-    lazy    => 1,
+    isa     => 'ScalarRef[Maybe[Str]]',
     default => sub { \(my $str) },
 );
 
@@ -42,6 +42,7 @@ sub write {
 
     # ...
 
+    $self->excel->close;
     return ${ $self->_output };
 }
 
-- 
cgit v1.2.3-54-g00ecf