support scalar refs as inputs too

for compatibility with Spreadsheet::ParseExcel

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/Spreadsheet/ParseXLSX.pm b/lib/Spreadsheet/ParseXLSX.pm
index c38cfc2..0ffbc43 100644
--- a/lib/Spreadsheet/ParseXLSX.pm
+++ b/lib/Spreadsheet/ParseXLSX.pm
@@ -88,13 +88,20 @@ sub parse {
         $workbook->{File} = undef;
         $workbook->{__tempfile} = $file;
     }
+    elsif (ref($file) eq 'SCALAR') {
+        open my $fh, '+<', $file
+            or die "Can't create filehandle from memory data";
+        $zip->readFromFileHandle($fh) == Archive::Zip::AZ_OK
+            or die "Can't open scalar ref as a zip file";
+        $workbook->{File} = undef;
+    }
     elsif (!ref($file)) {
         $zip->read($file) == Archive::Zip::AZ_OK
             or die "Can't open file '$file' as a zip file";
         $workbook->{File} = $file;
     }
     else {
-        die "Argument to 'new' must be a filename or open filehandle";
+        die "Argument to 'new' must be a filename, open filehandle, or scalar ref";
     }
 
     return $self->_parse_workbook($zip, $workbook, $formatter);
@@ -110,6 +117,9 @@ sub _check_signature {
         $file->read($signature, 2);
         $file->seek(-2, IO::File::SEEK_CUR);
     }
+    elsif (ref($file) eq 'SCALAR') {
+        $signature = substr($$file, 0, 2);
+    }
     elsif (!ref($file)) {
         my $fh = IO::File->new($file, 'r');
         $fh->read($signature, 2);