From 69bb39df1894cd4fc28858735db5af466b1a3802 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 13 Jul 2018 10:51:22 +0000
Subject: [PATCH] Bug 20718: Add missing POD

---
 Koha/Virtualshelf.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/Koha/Virtualshelf.pm b/Koha/Virtualshelf.pm
index a04ec7914e..cacbb0ec65 100644
--- a/Koha/Virtualshelf.pm
+++ b/Koha/Virtualshelf.pm
@@ -72,16 +72,40 @@ sub store {
     return $self->SUPER::store( $self );
 }
 
+=head3 is_public
+
+  my $bool = $shelf->is_public;
+
+  Returns true if shelf has been made public.
+
+=cut
+
 sub is_public {
     my ( $self ) = @_;
     return $self->category == $PUBLIC;
 }
 
+=head3 is_private
+
+  my $bool = $shelf->is_private;
+
+  Returns true if shelf is a private shelf.
+
+=cut
+
 sub is_private {
     my ( $self ) = @_;
     return $self->category == $PRIVATE;
 }
 
+=head3 is_staff
+
+  my $bool = $shelf->is_staff;
+
+  Returns true if shelf is available to staff only.
+
+=cut
+
 sub is_staff {
     my ( $self ) = @_;
     return $self->category == $STAFF;
-- 
2.11.0