From 367015f9fc97e1e41f5a9e15b0c54a0d672f44f5 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Wed, 8 Jun 2022 14:05:42 +0000
Subject: [PATCH] Bug 11889: (QA follow-up) Add POD ground work

Make QA tools a fraction happier ;)

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 Koha/Virtualshelves.pm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/Koha/Virtualshelves.pm b/Koha/Virtualshelves.pm
index 57b085e193..53a5ec5b5c 100644
--- a/Koha/Virtualshelves.pm
+++ b/Koha/Virtualshelves.pm
@@ -35,7 +35,7 @@ Koha::Virtualshelf - Koha Virtualshelf Object class
 
 =cut
 
-=head3 type
+=head3 get_private_shelves
 
 =cut
 
@@ -62,6 +62,9 @@ sub get_private_shelves {
     );
 }
 
+=head3 get_public_shelves
+
+=cut
 
 sub get_public_shelves {
     my ( $self, $params ) = @_;
@@ -80,6 +83,10 @@ sub get_public_shelves {
     );
 }
 
+=head3 get_some_shelves
+
+=cut
+
 sub get_some_shelves {
     my ( $self, $params ) = @_;
     my $borrowernumber = $params->{borrowernumber} || 0;
@@ -142,6 +149,10 @@ sub get_some_shelves {
     );
 }
 
+=head3 get_shelves_containing_record
+
+=cut
+
 sub get_shelves_containing_record {
     my ( $self, $params ) = @_;
     my $borrowernumber = $params->{borrowernumber};
@@ -180,6 +191,10 @@ sub get_shelves_containing_record {
     );
 }
 
+=head3 get_shared_shelves
+
+=cut
+
 sub get_shared_shelves {
     my ( $self, $params ) = @_;
     my $borrowernumber = $params->{borrowernumber} || 0;
@@ -193,10 +208,18 @@ sub get_shared_shelves {
     );
 }
 
+=head3 _type
+
+=cut
+
 sub _type {
     return 'Virtualshelve';
 }
 
+=head3 object_class
+
+=cut
+
 sub object_class {
     return 'Koha::Virtualshelf';
 }
-- 
2.20.1