From b4653629f63d410326036cef5aa8a70c55d17f45 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@theke.io>
Date: Wed, 6 Sep 2017 14:45:00 -0300
Subject: [PATCH] Bug 19256: (QA followup) Add missing POD

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 Koha/Acquisition/Order.pm  | 14 +++++++++++++-
 Koha/Acquisition/Orders.pm | 10 ++++++----
 2 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/Koha/Acquisition/Order.pm b/Koha/Acquisition/Order.pm
index 290ed03ab0..60324e3a41 100644
--- a/Koha/Acquisition/Order.pm
+++ b/Koha/Acquisition/Order.pm
@@ -32,6 +32,10 @@ Koha::Acquisition::Order Object class
 
 =head2 Class Methods
 
+=head3 new
+
+Overloaded I<new> method for backwards compatibility.
+
 =cut
 
 sub new {
@@ -45,6 +49,12 @@ sub new {
     return $self->SUPER::new($values);
 }
 
+=head3 store
+
+Overloaded I<store> method for backwards compatibility.
+
+=cut
+
 sub store {
     my ($self) = @_;
 
@@ -88,7 +98,9 @@ sub add_item {
     $rs->create({ ordernumber => $self->ordernumber, itemnumber => $itemnumber });
 }
 
-=head3 _type
+=head2 Internal methods
+
+=head3 _type (internal)
 
 =cut
 
diff --git a/Koha/Acquisition/Orders.pm b/Koha/Acquisition/Orders.pm
index 1302200f3d..56c2fb45d5 100644
--- a/Koha/Acquisition/Orders.pm
+++ b/Koha/Acquisition/Orders.pm
@@ -31,11 +31,9 @@ Koha::Acquisition::Orders object set class
 
 =head1 API
 
-=head2 Class Methods
+=head2 Internal methods
 
-=cut
-
-=head3 type
+=head3 _type (internal)
 
 =cut
 
@@ -43,6 +41,10 @@ sub _type {
     return 'Aqorder';
 }
 
+=head3 object_class (internal)
+
+=cut
+
 sub object_class {
     return 'Koha::Acquisition::Order';
 }
-- 
2.39.5