From: Thadeu Lima de Souza Cascardo Date: Sun, 1 Nov 2015 02:11:05 +0000 (-0200) Subject: Returns an array of transactions instead of a reference to it X-Git-Tag: v0.01~1 X-Git-Url: http://git.cascardo.info/?p=cascardo%2FFinance-Bank-BR-Santander-Spreadsheet.git;a=commitdiff_plain;h=a7b2d7588e6d39457c4767adc134642e4834b4fe Returns an array of transactions instead of a reference to it --- 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