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 (file)
--- 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 (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;
-    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<balance()> method returns the last balance found in the sheet.
 
 =head2 statement()
 
-The C<statement()> method returns a reference to an array of transactions, described as below.
+The C<statement()> method returns an array of transactions, described as below.
 
 =head1 Transaction