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',
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',