From 86c2e32296432dfed63cf2ad2e9aa4cf3f1745fc Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Thu, 29 Nov 2018 12:15:33 -0300
Subject: [PATCH] Bug 21909: Add return type explanation to POD

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 94bdfc2beee9da1ed3b8159e211272a42d01e4fa)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 Koha/Account.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Koha/Account.pm b/Koha/Account.pm
index 304d0e2743..eeb87a546c 100644
--- a/Koha/Account.pm
+++ b/Koha/Account.pm
@@ -423,6 +423,11 @@ sub balance {
 
 my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_debits;
 
+It returns the debit lines with outstanding amounts for the patron.
+
+In scalar context, it returns a Koha::Account::Lines iterator. In list context, it will
+return a list of Koha::Account::Line objects.
+
 =cut
 
 sub outstanding_debits {
@@ -440,6 +445,11 @@ sub outstanding_debits {
 
 my $lines = Koha::Account->new({ patron_id => $patron_id })->outstanding_credits;
 
+It returns the credit lines with outstanding amounts for the patron.
+
+In scalar context, it returns a Koha::Account::Lines iterator. In list context, it will
+return a list of Koha::Account::Line objects.
+
 =cut
 
 sub outstanding_credits {
-- 
2.39.5