projects
/
cascardo
/
Finance-Bank-BR-Santander-Spreadsheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Returns an array of transactions instead of a reference to it
[cascardo/Finance-Bank-BR-Santander-Spreadsheet.git]
/
lib
/
Finance
/
Bank
/
BR
/
Santander
/
Spreadsheet.pm
diff --git
a/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
b/lib/Finance/Bank/BR/Santander/Spreadsheet.pm
index
e388aeb
..
1b3e634
100644
(file)
--- 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;
sub statement {
my $self = shift;
- return
$self->{statement
};
+ return
@{$self->{statement}
};
}
1;
}
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 $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}";
}
say "$transaction->{date}, $transaction->{name}, $transaction->{extra}, $transaction->{value}, $transaction->{balance}";
}
@@
-108,7
+108,7
@@
The C<balance()> method returns the last balance found in the sheet.
=head2 statement()
=head2 statement()
-The C<statement()> method returns a
reference to a
n array of transactions, described as below.
+The C<statement()> method returns an array of transactions, described as below.
=head1 Transaction
=head1 Transaction