summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/WWW/YNAB.pm15
-rw-r--r--t/budget.t3
2 files changed, 18 insertions, 0 deletions
diff --git a/lib/WWW/YNAB.pm b/lib/WWW/YNAB.pm
index b44e004..192b5b0 100644
--- a/lib/WWW/YNAB.pm
+++ b/lib/WWW/YNAB.pm
@@ -117,6 +117,21 @@ sub budget {
my @transactions = map {
my %transaction = %$_;
+ ($transaction{account_name}) = map {
+ $_->{name}
+ } grep {
+ $_->{id} eq $transaction{account_id}
+ } @{ $budget{accounts} };
+ ($transaction{payee_name}) = map {
+ $_->{name}
+ } grep {
+ $_->{id} eq $transaction{payee_id}
+ } @{ $budget{payees} };
+ ($transaction{category_name}) = map {
+ $_->{name}
+ } grep {
+ $_->{id} eq $transaction{category_id}
+ } @{ $budget{categories} };
$transaction{subtransactions} = [
map {
$self->model_from_data('WWW::YNAB::SubTransaction', $_)
diff --git a/t/budget.t b/t/budget.t
index f769cfc..3886365 100644
--- a/t/budget.t
+++ b/t/budget.t
@@ -97,6 +97,9 @@ is($transactions[0]->category_id, "33333333-3333-3333-3333-444444444444");
is($transactions[0]->transfer_account_id, undef);
is($transactions[0]->import_id, "YNAB:-98760:2018-06-18:1");
ok(!$transactions[0]->deleted);
+is($transactions[0]->account_name, "Checking Account");
+is($transactions[0]->payee_name, "the power company");
+is($transactions[0]->category_name, "Utilities");
is(scalar $transactions[0]->subtransactions, 0);
my @subtransactions = $transactions[2]->subtransactions;