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
example: Exit when parsing fails
[cascardo/Finance-Bank-BR-Santander-Spreadsheet.git]
/
examples
/
santander.pl
diff --git
a/examples/santander.pl
b/examples/santander.pl
index
64563ea
..
7c94c1b
100644
(file)
--- a/
examples/santander.pl
+++ b/
examples/santander.pl
@@
-33,6
+33,11
@@
if (@ARGV != 1) {
my $spreadsheet = Finance::Bank::BR::Santander::Spreadsheet->new($ARGV[0]);
+if (!defined($spreadsheet)) {
+ print STDERR "Failed to parse $ARGV[0].\n";
+ exit 2;
+}
+
my $balance = $spreadsheet->balance;
my $data = $spreadsheet->statement;