projects
/
cascardo
/
Finance-Bank-BR-Santander-Spreadsheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Really return undef when parsing fails
[cascardo/Finance-Bank-BR-Santander-Spreadsheet.git]
/
lib
/
Finance
/
Bank
/
BR
/
Santander
/
Spreadsheet.pm
diff --git
a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
index
e4bddb6
..
e388aeb
100644
(file)
--- 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;
my $self = {};
bless $self, $class;
$self->_init;
- $self->load(@_);
+ if ($self->load(@_)) {
+ return undef;
+ }
return $self;
}
return $self;
}
@@
-52,10
+54,11
@@
sub load {
if (defined($filename)) {
my $xls = Spreadsheet::ParseExcel::Simple->read($filename);
if (!defined($xls)) {
if (defined($filename)) {
my $xls = Spreadsheet::ParseExcel::Simple->read($filename);
if (!defined($xls)) {
- return;
+ return
1
;
}
$self->_parse($xls);
}
}
$self->_parse($xls);
}
+ return 0;
}
sub balance {
}
sub balance {