build: set LICENSE to gpl_2

[cascardo/Finance-Bank-BR-Santander-Spreadsheet.git] / examples / santander.pl

diff --git a/examples/santander.pl b/examples/santander.pl
index 64563ea..b9869a8 100644 (file)
--- a/examples/santander.pl
+++ b/examples/santander.pl
@@ -33,11 +33,16 @@ 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;
+my @data = $spreadsheet->statement;
 
-foreach my $transaction (@{$data}) {
+foreach my $transaction (@data) {
     say "$transaction->{date}, $transaction->{name}, $transaction->{extra}, $transaction->{value}, $transaction->{balance}";
 }