From 1db8d69bd00aad126b120e94876eea78630f2b8a Mon Sep 17 00:00:00 2001
From: Thadeu Lima de Souza Cascardo <cascardo@redhat.com>
Date: Sat, 31 Oct 2015 23:51:29 -0200
Subject: [PATCH] example: Exit when parsing fails

---
 examples/santander.pl | 5 +++++
 1 file changed, 5 insertions(+)

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;
-- 
2.20.1