Bug 16371: Add needed Koha::Exception

[koha-ffzg.git] / Koha / Exceptions.pm

diff --git a/Koha/Exceptions.pm b/Koha/Exceptions.pm
index 9d7f397..c811b97 100644 (file)
--- a/Koha/Exceptions.pm
+++ b/Koha/Exceptions.pm
@@ -1,17 +1,14 @@
 package Koha::Exceptions;
 
 use Modern::Perl;
+use Koha::Exceptions::Exception;
 
 use Exception::Class (
 
-    # General exceptions
-    'Koha::Exceptions::Exception' => {
-        description => 'Something went wrong!',
-    },
     'Koha::Exceptions::BadParameter' => {
         isa => 'Koha::Exceptions::Exception',
-        description => 'Bad parameter was given',
-        fields => ["parameter"],
+        description => 'A bad parameter was given',
+        fields => ['parameter'],
     },
     'Koha::Exceptions::DuplicateObject' => {
         isa => 'Koha::Exceptions::Exception',
@@ -29,6 +26,14 @@ use Exception::Class (
         isa => 'Koha::Exceptions::Exception',
         description => 'A required parameter is missing'
     },
+    'Koha::Exceptions::ParameterTooHigh' => {
+        isa => 'Koha::Exceptions::Exception',
+        description => 'A passed parameter value is too high'
+    },
+    'Koha::Exceptions::NoChanges' => {
+        isa => 'Koha::Exceptions::Exception',
+        description => 'No changes were made',
+    },
     'Koha::Exceptions::WrongParameter' => {
         isa => 'Koha::Exceptions::Exception',
         description => 'One or more parameters are wrong',
@@ -45,6 +50,10 @@ use Exception::Class (
         isa => 'Koha::Exceptions::Exception',
         description => 'Koha is under maintenance.'
     },
+    'Koha::Exceptions::UnknownProgramState' => {
+        isa => 'Koha::Exceptions::Exception',
+        description => 'The running program has done something terribly unpredicatable',
+    },
     # Virtualshelves exceptions
     'Koha::Exceptions::Virtualshelves::DuplicateObject' => {
         isa => 'Koha::Exceptions::DuplicateObject',