From: Thadeu Lima de Souza Cascardo <cascardo@redhat.com>
Date: Sun, 1 Nov 2015 01:50:02 +0000 (-0200)
Subject: Really return undef when parsing fails
X-Git-Tag: v0.01~4
X-Git-Url: http://git.cascardo.info/?p=cascardo%2FFinance-Bank-BR-Santander-Spreadsheet.git;a=commitdiff_plain;h=14ed6af8e07188102dc430663bafe79a38ef30e1

Really return undef when parsing fails
---

diff --git a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
index e4bddb6..e388aeb 100644
--- a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
+++ b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
@@ -14,7 +14,9 @@ sub new {
     my $self = {};
     bless $self, $class;
     $self->_init;
-    $self->load(@_);
+    if ($self->load(@_)) {
+        return undef;
+    }
     return $self;
 }
 
@@ -52,10 +54,11 @@ sub load {
     if (defined($filename)) {
         my $xls = Spreadsheet::ParseExcel::Simple->read($filename);
         if (!defined($xls)) {
-            return;
+            return 1;
         }
         $self->_parse($xls);
     }
+    return 0;
 }
 
 sub balance {