From e843f6e2c29fc21b08895b369fed7eb126a388f0 Mon Sep 17 00:00:00 2001 From: Kyle M Hall 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.17.1 (Apple Git-112)