From eb014f65bbe4a6892ca39a020fc6b71d90665993 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 3 Feb 2022 16:22:49 -0300 Subject: [PATCH] Bug 30007: Add Koha::Exceptions::SysPref Signed-off-by: Tomas Cohen Arazi --- Koha/Exceptions/SysPref.pm | 49 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 Koha/Exceptions/SysPref.pm diff --git a/Koha/Exceptions/SysPref.pm b/Koha/Exceptions/SysPref.pm new file mode 100644 index 0000000000..2ba89b8bee --- /dev/null +++ b/Koha/Exceptions/SysPref.pm @@ -0,0 +1,49 @@ +package Koha::Exceptions::SysPref; + +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . + +use Modern::Perl; + +use Koha::Exception; + +use Exception::Class ( + 'Koha::Exceptions::SysPref' => { + isa => 'Koha::Exception', + }, + 'Koha::Exceptions::SysPref::NotSet' => { + isa => 'Koha::Exceptions::SysPref', + description => 'Required syspref is not set', + fields => ['syspref'] + } +); + +=head1 NAME + +Koha::Exceptions::SysPref - Base class for syspref-related exceptions + +=head1 Exceptions + +=head2 Koha::Exceptions::SysPref + +Generic syspref-related exception + +=head2 Koha::Exceptions::SysPref::NotSet + +Exception to be used when a required syspref is not set. + +=cut + +1; -- 2.32.0