fixed bug with Path::Class::File and read_file.

dylanwh · Apr 7, 2009 · cb25e4c · cb25e4c
1 parent 4df71b2
commit cb25e4c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/lib/Spreadsheet/Simple/Reader/Excel.pm b/lib/Spreadsheet/Simple/Reader/Excel.pm
@@ -28,7 +28,7 @@ sub _build_parser { Spreadsheet::ParseExcel->new }
 
 sub read_file {
 	my ($self, $file) = @_;
-	my $wb = $self->parse($file);
+	my $wb = $self->parse("$file");
 
 	return $self->map_document($wb);
 }

diff --git a/t/101-excel.t b/t/101-excel.t
@@ -2,8 +2,9 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1 + 7*2;
+use Test::More tests => 1 + 7*4;
 use Test::Exception;
+use Path::Class 'file';
 
 BEGIN { use_ok "Spreadsheet::Simple" }
 
@@ -12,6 +13,8 @@ my $ss = Spreadsheet::Simple->new( format => 'Excel' );
 my @files  = (
 	't/data/100-excel.xls',
 	't/data/100-excel2.xls',
+	file('t/data/100-excel.xls'),
+	file('t/data/100-excel2.xls'),
 );
 
 foreach my $file (@files) {