X-Git-Url: http://git.cascardo.info/?p=cascardo%2FFinance-Bank-BR-Santander-Spreadsheet.git;a=blobdiff_plain;f=lib%2FFinance%2FBank%2FBR%2FSantander%2FSpreadsheet.pm;h=e388aeb0b8dd0488f8b25552f4ca1d62663bd120;hp=e4bddb65a489531d1cb782911c8ddcd1f19831b4;hb=14ed6af8e07188102dc430663bafe79a38ef30e1;hpb=a33c58b52d1b9331635a600aa79344a7a3e0a748

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 {