From: Thadeu Lima de Souza Cascardo <cascardo@redhat.com>
Date: Sun, 1 Nov 2015 01:51:29 +0000 (-0200)
Subject: example: Exit when parsing fails
X-Git-Tag: v0.01~3
X-Git-Url: http://git.cascardo.info/?p=cascardo%2FFinance-Bank-BR-Santander-Spreadsheet.git;a=commitdiff_plain;h=1db8d69bd00aad126b120e94876eea78630f2b8a

example: Exit when parsing fails
---

diff --git a/examples/santander.pl b/examples/santander.pl
index 64563ea..7c94c1b 100644
--- 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;