diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-04-26 15:30:13 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-04-26 16:05:38 -0500 |
commit | d8a3e96d47727fcdc9c95e831a55efdcbd9bfaa7 (patch) | |
tree | 15136fa14e75b4e77bc11f12bc937688fb519b95 | |
parent | 08e2e1e9adc9d1de0a2e5e7b74cc7c8553f3672c (diff) | |
download | spreadsheet-template-d8a3e96d47727fcdc9c95e831a55efdcbd9bfaa7.tar.gz spreadsheet-template-d8a3e96d47727fcdc9c95e831a55efdcbd9bfaa7.zip |
compilation fixes
-rw-r--r-- | lib/Spreadsheet/Template.pm | 4 | ||||
-rw-r--r-- | 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 }; } |