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;