From a7b2d7588e6d39457c4767adc134642e4834b4fe Mon Sep 17 00:00:00 2001 From: Thadeu Lima de Souza Cascardo Date: Sun, 1 Nov 2015 00:11:05 -0200 Subject: [PATCH] Returns an array of transactions instead of a reference to it --- examples/santander.pl | 4 ++-- lib/Finance/Bank/BR/Santander/Spreadsheet.pm | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/examples/santander.pl b/examples/santander.pl index 7c94c1b..b9869a8 100644 --- a/examples/santander.pl +++ b/examples/santander.pl @@ -40,9 +40,9 @@ if (!defined($spreadsheet)) { 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}"; } diff --git a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm index e388aeb..1b3e634 100644 --- a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm +++ b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm @@ -68,7 +68,7 @@ sub balance { sub statement { my $self = shift; - return $self->{statement}; + return @{$self->{statement}}; } 1; @@ -85,8 +85,8 @@ Finance::Bank::BR::Santander::Spreadsheet - Parse statement exported from Brazil my $spreadsheet = Finance::Bank::BR::Santander::Spreadsheet->new($filename); my $balance = $spreadsheet->balance; - my $data = $spreadsheet->statement; - foreach my $transaction (@{$data}) { + my @data = $spreadsheet->statement; + foreach my $transaction (@data) { say "$transaction->{date}, $transaction->{name}, $transaction->{extra}, $transaction->{value}, $transaction->{balance}"; } @@ -108,7 +108,7 @@ The C method returns the last balance found in the sheet. =head2 statement() -The C method returns a reference to an array of transactions, described as below. +The C method returns an array of transactions, described as below. =head1 Transaction -- 2.20.1