From d5a9c7254c642f8cab8149c45cba52e7bea2f5cc 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>
---
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.14.1